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PREFACE 


The  development  of  the  MASH  code  system  has  been  due  to  the  efforts  of 
numerous  people  over  a  period  of  several  years.  All  of  those  involved 
in  the  MASH  effort  would  like  to  express  their  gratitude  to  the  Defense 
Nuclear  Agency  who  has  continuously  supported  and  monitored  the  project. 
Since  MASH  represents  a  collection  of  codes,  and  parts  of  this  manual 
are  extracted  from  other  documents  supporting  these  various  codes,  the 
major  contributors  to  the  MASH  effort  deserve  mention.  Ballistic 
Research  Laboratory  (BRL)  contributed  the  GIFTS  geometry  package  (along 
with  much  of  its  documentation)  utilized  in  the  MORSE  component  of  MASH. 
Science  Applications  International  Corporation  (SAIC)  contributed  the 
in-group  energy  biasing  methodology  incorporated  in  MORSE  (along  with 
much  of  its  documentation)  and  the  programming  required  to  couple  the 
GIFTS  geometry  package  into  the  MORSE  component  of  MASH.  Furthermore, 
SAIC  collaborated  with  the  extensive  programming  changes,  error 
debugging,  and  code  testing  throughout  the  development  phase  of  the  MASH 
project.  Oak  Ridge  National  Laboratory  (ORNL)  contributed  most  of  the 
codes  which  make  up  the  MASH  code  system.  The  ORNL  investigators  have 
incorporated  the  many  contributions  from  within  ORNL  along  with  the 
contributions  from  the  other  investigators  at  BRL  and  SAIC  into  the  MASH 
code  system  and  are  responsible  for  the  final  version  of  MASH  to  be 
released  along  with  the  supporting  documentation. 

Each  section  within  this  manual  contains  its  own  set  of  references  to 
acknowledge  the  principal  sources  of  the  contributions  to  that 
particular  section.  These  references  acknowledge  the  contributions  of 
those  not  directly  involved  with  the  MASH  project,  but  without  their 
efforts  MASH  would  not  exist.  Here  it  is  sufficient  to  state  that  the 
efforts  of  all  those  who  aided  this  project  through  technical 
consultation,  code  programming  and  testing,  review,  manuscript 
preparation,  and  administrative  support  are  gratefully  acknowledged. 


J.  0.  Johnson,  editor 


ABSTRACT 


The  Monte  Carlo  Adjoint  Shielding  Code  System,  MASH,  calculates  neutron 
and  gamma-ray  environments  and  radiation  protection  factors  for  armored 
military  vehicles,  structures,  trenches,  and  other  shielding 
configurations  by  coupling  a  forward  discrete  ordinates  air-over-ground 
transport  calcul  tion  with  an  adjoint  Monte  Carlo  treatment  of  the 
shielding  geometry.  Efficiency  and  optimum  use  of  computer  time  are 
emphasized.  The  code  system  includes  the  GRTUNCL  and  DORT  codes  for 
air-over-ground  transport  calculations,  the  MORSE  code  with  the  GIFTS 
combinatorial  geometry  package  for  adjoint  shielding  calculations,  and 
several  peripheral  codes  that  perform  the  required  data  preparations, 
transformations,  and  coupling  functions.  MASH  is  the  successor  to  the 
Vehicle  Code  System  (VCS)  initially  developed  at  Oak  Ridge  National 
Laboratory  (ORNL). 

The  discrete  ordinates  calculation  determines  the  fluence  on  a  coupling 
surface  surrounding  the  shielding  geometry  due  to  an  external 
neutron/gamma -ray  source.  The  Monte  Carlo  calculation  determines  the 
effectiveness  of  the  fluence  at  that  surface  in  causing  a  response  in  a 
detector  within  the  shielding  geometry,  i.e.,  the  "dose  importance"  of 
the  coupling  surface  fluence.  A  coupling  code  folds  the  fluence 
together  with  the  dose  importance,  giving  the  desired  dose  response. 

The  coupling  code  can  determine  the  dose  response  as  a  function  of  the 
shielding  geometry  orientation  relative  to  the  source,  distance  from  the 
source,  and  energy  response  of  the  detector. 

This  user's  manual  includes  a  short  description  of  each  code,  the  input 
required  to  execute  the  code  along  with  some  helpful  input  data  notes, 
and  a  representative  sample  problem  (input  data  and  selected  output 
edits)  for  each  code. 


1.0  MASH:  A  MONTE  CARLO  ADJOINT  SHIELDING  CODE  SYSTEM 


1.1  INTRODUCTION  TO  NASH 


1.1.1  Background 

An  armored  vehicle  can  provide  important  protection  against  the  effects 
of  a  nuclear  weapon.  In  the  case  of  a  tactical  weapon,  prompt  radiation 
may  be  the  dominant  effect  over  a  considerable  area  surrounding  the 
detonation.  The  Vehicle  Code  System  (VCS)  was  developed  by  Oak  Ridge 
National  Laboratory  (ORNL)  to  facilitate  the  calculation  of  radiation 
protection  factors  for  a  given  vehicle;  i.e.,  the  ratio  by  which  the 
free-field  radiation  is  reduced  due  to  the  presence  of  the  vehicle.’*^ 
VCS  was  constructed  by  linking  together  a  discrete-ordinates  air-over¬ 
ground  transport  calculation  and  an  adjoint  Monte  Carlo  vehicle  dose- 
importance  calculation.  A  typical  problem  involving  an  armored  vehicle 
is  shown  in  Figure  1-1.  While  the  title  implies  the  code  system  was  to 
be  used  only  for  vehicles,  VCS  could  also  be  used  for  other  shielded 
structures.  A  typical  problem  involving  a  shielded  structure,  such  as  a 
house,  is  shown  in  Figure  1-2. 

The  typical  VCS  problem  involves  the  detonation  of  a  low-kiloton  yield 
tactical  nuclear  weapon  within  a  kilometer  of  the  target  (vehicle).  The 
air-over-ground  transport  calculation  determines  the  neutron  and  photon 
fluence  as  a  function  of  energy  on  a  coupling  surface  surrounding  the 
target  (vehicle).  The  dose- importance  calculation  determines  the 
effectiveness  of  particles  at  the  coupling  surface  in  contributing  to 
dose  at  a  detector  position  within  the  target  (vehicle).  A  coupling 
code  folds  the  fluence  together  with  the  dose  importance,  giving  the 
dose  response.  The  coupling  code  can  also  rotate  the  vehicle,  move  it 
to  different  distances  from  the  source,  and  perturb  the  energy  response 
of  the  detector. 

VCS  was  initially  developed  as  a  four-code  system  including  MORSE,  DOT, 
DRC,  and  VISA.  MORSE^  is  both  a  forward  and  an  adjoint  Monte  Carlo 
transport  code  which  can  calculate  the  fluence  in  the  complicated  three- 
dimensional  vehicle  geometry.  DOT^  is  a  two-dimensional  discrete 
ordinates  radiation  transport  code  which  calculates  the  energy-  and 
angle-dependent  free-field  initial  radiation  environment.  DRC  couples 
the  adjoint  fluences  from  MORSE  with  the  free-field  environments  from 
DOT  to  calculate  the  radiation  environments  or  protection  factors  at 
"detector"  locations  in  the  vehicle  or  structure.  VISA  is  used  to 
format  the  DOT  angular  fluence  into  a  data  file  for  use  by  DRC. 

VCS  has  been  and  still  is  regularly  used  at  ORNL,  the  Ballistic  Research 
Laboratory  (BRL),  Science  Applications  International  Corporation  (SAIC), 
Lawrence  Livermore  National  Laboratory  (LLNL),  and  Wehrwissenschaftl iche 
Dienststelle  der  Bundeswehr  fur  ABC-Schutz  (WWD),  West  Germany®  for  the 
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Figure  1-1.  Typical  VCS  Problem  Involving  an  Armored  Vehicle. 
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calculations  of  neutron  and  gamma-ray  protection  factors  of  military 
vehicles,  structures,  trenches,  and  other  shield  configurations.  VCS 
represents  a  powerful  tool  for  coupling  complex  geometry  calculations 
into  single  free-field  environments,  and  as  such,  has  had  applications 
to  a  great  many  shielding  problems.  Past  and  present  applications 
include  a  wide  variety  of  Army  vehicles,  house  shielding  at  Hiroshima 
and  Nagasaki,  trench  shielding  factors  at  the  Nevada  Test  Site,  and  in¬ 
missile  radiation  environments. 

Over  the  course  of  time,  different  versions  of  VCS  were  created  due  to 
the  different  installations  tailoring  the  code  to  suit  their  particular 
purpose.  At  ORNL,  the  DOT  III  code  was  replaced  with  the  DOT 
code,  and  VISA  was  replaced  with  VISTA.  BRL,  which  has  been  a  major 
user  and  source  of  funding  for  the  VCS  code,  made  a  number  of 
modifications  to  the  MORSE  and  DRC  parts  of  VCS  in  1976-1977.  The  major 
change  to  MORSE  was  the  replacement  of  the  combinatorial  geometry  model, 
which  SAIC  had  previously  installed  in  MORSE,®  with  GIFT  combinatorial 
geometry,  which  was  similar  to  the  MORSE  combinatorial  geometry  but 
which  had  been  further  developed  at  BRL.’’’^  After  those  modifications, 
BRL  contracted  SAIC  to  evaluate  and  document  some  aspects  of  the  VCS. 
That  effort  concluded  that  “VCS  is  a  sophisticated  and  well -planned  code 
package  capable  of  accurate,  state-of-the-art  radiation  transport  in 
complex,  three-dimensional  vehicles"  and  suggested  a  new  "within-group" 
energy  biasing  scheme  for  adjoint  MORSE. In  two  subsequent  efforts, 
one  for  the  Wehrwissenschaftliche  Dienststelle  der  Bundeswehr  fur  ABC- 
Schutz  (WVID),  West  Germany,’^  and  the  other  for  BRL,’^  SAIC  installed  and 
tested  the  new  in-group  energy  bias  methodology  in  the  adjoint  MORSE 
part  of  VCS.  The  study  for  WWD  demonstrated  that  this  scheme  could 
provide  a  factor  of  four  increase  in  the  efficiency  of  VCS  for  a 
shielding  calculation  with  10  cm  of  steel. 

The  result  of  all  this  independent  development  of  VCS  was  a 
proliferation  of  different  versions  of  the  code,  of  which  most  were  not 
compatible.  The  Defense  Nuclear  Agency  (DNA)  expressed  concern  over  the 
potential  for  disagreement  between  independent  analyses  of  the  same 
armored  vehicle.  Consequently,  BRL,  ORNL,  and  SAIC  were  tasked  to 
identify  the  problems  associated  with  the  "current"  version(s)  of  VCS, 
incorporate  the  various  modifications  (which  would  improve  the  VCS  code) 
that  have  been  added  to  the  different  versions,  and  create  a  singularly 
referenced  version  of  VCS.  In  particular,  the  purpose  of  this  project 
was  to  establish  and  verify  a  version  of  VCS  which  is  generally 
acceptable  to  the  user  community,  and  to  place  this  version  of  VCS  under 
responsible  custody  on  the  Defense  Nuclear  Agency  (DNA)  computing 
network  for  use  on  the  CRAY  computer  system  at  Los  Alamos  National 
Laboratory  (LANL)  under  the  CRAY  Time  Sharing  System  (CTSS).  In  this 
effort,  SAIC  was  to  take  the  lead  in  the  selection  of  the  geometry  model 
and  in  the  development  and  testing  of  the  in-group  energy  biasing;  ORNL 
was  to  develop  a  new  reference  cross  section  data  set,  modify  DRC  to 
couple  MORSE  and  DOT  calculations  made  with  different  energy  group  sets, 
and  compile  the  new  version  of  VCS.  SAIC  and  ORNL  were  to  share  the 
task  of  checking  out  the  new  coding. 
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In  years  prior  to  this  effort,  three  problems  with  VCS  and  the  primary 
cross  section  library  use  in  VCS  analysis  were  identified,  all  of  which 
have  been  addressed  in  this  effort.  These  three  problems  included: 


1.  The  biasing  treatment  used  in  the  MORSE  adjoint  calculation  of 
VCS  did  not  favorably  sample  the  most  important  regions  of 
energy  space,  especially  for  calculations  involving  steel  and 
polyethylene.  These  two  materials  are  potentially  important 
shielding  components  of  armored  vehicles.  Furthermore, 
theoretical  analyses  of  the  standard  adjoint  scattering 
treatment  indicated  inherent  large  variances  for  adjoint  Monte 
Carlo  analyses  of  thick  media. 


2.  The  energy  group  structure  of  the  58  group  (37  neutron  groups, 
21  gamma  groups)  DLC  31  cross  section  library,’^  had 
suspected  deficiencies  for  transport  in  steel  and  air, 
especially  near  1  MeV  and  at  epithermal  energies. 


3.  The  more  recent  GIFTS’*  geometry  routines  used  by  BRL  for 

constructing  vehicle  models  have  certain  incompatibilities  with 
the  geometry  routines  in  MORSE.  Vehicle  models  developed  by  BRL 
for  various  analyses  other  than  nuclear  survivability/shielding 
effectiveness  had  to  be  revised,  at  a  significant  cost  in  man 
power  and  elapsed  time,  for  VCS  analyses. 


As  a  result  of  this  effort,  SAIC  installed  a  "user  community  compatible" 
geometry  package  and  in-group  energy  biasing  into  VCS  by  incorporating 
the  GIFTS  geometry  package  and  a  revised  in-group  energy  bias  package 
into  the  BRL  MIFT  version  of  MORSE.  After  a  significant  checkout 
effort,  this  package  was  released  to  ORNL  for  further  checkout  and 
testing.  SAIC  called  this  version  of  MORSE  "MIFT2",’^  indicating  that 
it  was  an  update  of  the  BRL  MIFT  code.  ORNL  developed  the  new  Defense 
Applications  Broad-group  Library  (DABL69),’®  with  46  neutron  energy 
groups  and  23  gamma-ray  groups,  made  several  modifications  to  many  of 
the  code  system  modules,  and  incorporated  the  SAIC  changes  to  the  MORSE 
component  into  the  new  version  of  VCS  called  MASH  (Monte  Carlo  Adjoint 
Shielding).  This  final  version  "HASH  1.0"  has  been  compiled  and  tested 
and  placed  under  responsible  custody  of  DNA  on  the  DNA  computing  network 
for  use  on  the  CRAY  computer  system  at  Los  Alamos  National  Laboratory 
(LANL)  under  the  CRAY  Time  Sharing  System  (CTSS).  Future  efforts  will 
involve  making  a  version  of  MASH  1.0  operational  on  an  IBM  RISC  System 
6000  workstation. 
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1.1.2  Summary  of  Corrections  and  Improvements  to  VCS 

The  VCS  code  was  outdated  in  several  respects  as  well  as  being  deficient 
in  others.  Among  the  changes  made  to  VCS  to  produce  version  1.0  of  the 
MASH  code  system  are: 


1.  The  replacement  of  the  MORSE  module  with  the  latest  version 
of  MORSE-CG. 


2.  The  incorporation  of  in-group  energy  biasing  into  the  MORSE 
component  of  MASH. 


3.  The  replacement  of  the  combinatorial  geometry  package  in 
MORSE  with  the  new  GIFTS  geometry  package. 


4.  The  modifications  to  DRC  to  couple  MORSE  and  OORT  calculations 
with  different  energy  group  structures,  and  read  the  new  VISTA 
formatted  records. 


5.  The  replacement  of  the  DOT  component  with  the  newer  DORT” 
component. 


6.  The  replacement  of  VISA  with  the  newer  VISTA  code. 


7.  The  replacement  of  the  DLC-31  {37n-2l7)  group  coupled 
cross-section  library  with  the  new  DABL69  (46n-237)  group 
library  as  the  reference  cross-section  data  library. 


All  components  of  MASH  1.0,  except  the  GIFTS  input  module  to  MORSE,  use 
the  FIDO  free-form  input  data  described  in  detail  in  Appendix  A.  The 
GIFTS  geometry  input  for  the  MORSE  component  currently  is  in  fixed 
format,  however,  future  efforts  will  convert  this  input  over  to  the  FIDO 
free-form  method. 

Additional  improvements  to  MASH  1.0  include  programming  upgrades  to  the 
MORSE  and  DRC  modules.  These  two  codes  now  have  all  arrays  variably 
dimensioned,  variable  tape  unit  numbers,  revised  common  and  subroutine 
structures,  a  new  leakage  tape  format,  and  orderly  termination  of  cases. 
Several  errors  in  choosing  bins  for  the  coupling  surface  and  in 
determining  detector  number  for  the  storage  of  results  have  been 
corrected.  Because  traceability  or  quality  assurance  is  increasingly 
important,  some  changes  were  made  to  tape  formats  to  provide  more 
definitive  information  about  the  computer  runs. 
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1.2  STRUCTURE  OF  NASH  1.0 


The  general  structure  of  the  MASH  code  system  is  shown  in  Figure  1-3, 
while  the  data  flow  is  detailed  in  Figure  1-4.  The  GIF  code  is  used  to 
create  and  mix  the  materials  required  to  run  the  air-over-ground 
transport  analysis.  The  compositions  and  source  data  for  the  air-over- 
ground  transport  calculation  are  input  into  both  the  GRTUNCL  and  DORT 
codes.  In  order  to  maintain  particle  balance  and  reduce  ray  effects, 
GRTUNCL  calculates  the  uncollided  fluence  and  first-collision  source 
throughout  the  problem  space.  This  information  is  input  to  DORT  which 
calculates  the  resulting  collided  fluence,  and  merges  the  two  results. 
All  fluence  information  is  passed  to  VISTA,  where  it  is  condensed  and 
reordered  for  convenient  processing.  Only  a  few  ground  ranges  from  the 
radiation  source  are  normally  processed  at  this  step.  Additional  ground 
ranges  may  be  obtained  by  rerunning  the  VISTA  code  at  a  minimal  cost. 

The  complex  three-dimensional  target  (vehicle)  geometry  description  and 
material  compositions  are  input  to  the  MORSE  code.  MORSE  records  the 
required  information  for  each  adjoint  track  leaving  the  coupling  surface 
on  a  leakage  data  set  which  is  input  to  the  Detector  Response  Code,  DRC. 
DRC  folds  the  adjoint  leakage  data  together  with  the  reformatted  DORT 
fluence  at  the  coupling  surface,  i.e.,  the  VISTA  code  output  fluence 
file,  for  the  selected  orientation,  range,  and  detector  response.  It 
also  provides  edits  of  estimated  variances  of  the  results  as  requested 
by  the  user.  The  protection  factor  itself  is  obtained  by  dividing  the 
free-field  dose,  available  from  DORT,  by  the  dose  response  at  the 
detector  position  within  the  target  (vehicle)  given  by  DRC. 

Special  advantage  is  taken  of  the  fact  that  the  target  (vehicle)  is 
small  compared  to  the  separation  distance  between  the  source  (weapon) 
and  target  (vehicle).  This  means  that  the  fluence  in  a  given  direction 
and  at  a  given  elevation  and  energy  is  essentially  independent  of  the 
azimuthal  variable  about  the  target  (vehicle).  This  reduces  the  volume 
of  data  processed  by  DRC,  minimizes  the  cost  of  both  VISTA  and  DRC,  and 
simplifies  the  construction  of  both  codes.  [Note:  This  assumption  could 
lead  to  error  for  some  large  structures  such  as  house  clusters,  large 
buildings,  etc.,  where  the  distance  from  the  detector  location  to  the 
coupling  surface  is  significant  relative  to  the  gradient  in  the  external 
fluence  field.] 

Most  of  the  cost  of  MASH  is  incurred  in  the  DORT  and  MORSE  codes. 
Therefore,  it  is  advantageous  to  save  the  VISTA  output  for  use  with  many 
MORSE  runs.  Likewise,  it  is  practical  to  use  a  single  MORSE  leakage 
tape  for  a  target  (vehicle)  to  examine  a  number  of  target  orientations, 
source  ranges  and  types,  and  detector  response  functions. 
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Figure  1-3.  General  Structure  of  the  MASH  Code  System. 


1-8 


[ENDF/B-Vj 

NudMr 

Cross-S«ction  Data 


DABL69 


46-n«utron/23^mma  group 
Cross-Sacton  Data 


Start: 


Vahicl# 
Description 
.  (BRL  CAD  Ilia)  , 

— =r — 

Supplied  by  Customer 


Weapon 
Source  Spectra 


Air  Composition 
Ground  Composition 


Air-Over-Ground 
Material  Processing  Calcuiation 


BRL  CAD 


GIFTS 

Combinalorial  Geometry 
Target  Description 


This  graphics 
module  is  planned 
to  be  a  later 
enhancement  to 
MASH  version  1 .0 


GRTUNCL 


First  Collision  Source  and 
Uncollidad  Flux  Calculation 


First  Collision 
Source 


DORT 


Air-Over-Ground  Discrete  Ordinates 
Transport  Calculation 


CGVIEW 


Combinatorial  Geometry 
View  Generator 


ORGBUG 


Oak  Ridge 
Graphical  Debugger 

I 

Revised  GIFTS 
Target  Description 


VISTA 


Coupling  Surlace 
Rux  Preparation 
Calculation 


Adjoinl  Monte-Carlo 
Target  Transport 
Calculation 


Detector  Response  Calculation 


Detector  response  as  a  luncbon  ol  energy, 
tritegral  Doses.  Protection  Factors.  Reduction  Factors 
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1.3  STRUCTURE  OF  NASH  USER'S  MANUAL 


1.3.1  The  Main  Text 

The  remainder  of  the  main  text  of  this  manual  (Sections  2.0  through  7.0) 
gives  a  detailed  description  of  each  of  the  codes  in  MASH.  Included  in 
each  section  is  a  brief  description  of  the  code  and  its  theory  (if 
applicable),  the  input  requirements,  detailed  input  data  notes,  the 
input  and  output  file  formats,  the  logical  unit  requirements,  a  list  of 
references  pertaining  to  that  particular  section,  and  a  sample  problem. 
For  the  two  major  codes  within  MASH,  i.e.,  OORT  and  MORSE,  the  section 
is  not  intended  to  be  a  complete  description  and  the  interested  user 
might  consider  obtaining  the  reference  documents  for  these  two  codes. 
However,  the  information  in  each  of  the  sections  should  be  sufficient 
for  understanding  and  using  MASH. 


1.3.2  The  Appendices 

The  Appendices  include  detailed  descriptions  of  FIDO  input  (Appendix  A), 
the  theory  behind  in-group  energy  biasing  (Appendix  B),  a  detailed 
description  for  the  GIFTS  geometry  package  (Appendix  C),  a  listing  of 
the  MASH  1,0  computer  code  abstract  (Appendix  D),  and  a  short,  informal 
"user  motes"  section  (Appendix  E)  which  addresses  some  of  the  caveats  of 
performing  the  MASH  analysis  of  the  sample  problem  as  determined  through 
the  experience  of  the  MASH  1.0  manual's  editor.  The  inclusion  of  the 
in-group  biasing  theory  in  the  appendix  (rather  than  in  the  MORSE 
section)  was  due  to  the  format  chosen  for  the  "user's"  manual.  The 
detailed  description  of  the  GIFTS  geometry  package  was  included  for 
completeness  since  this  package  is  unpublished. 


1.3.3  The  Sample  Problem 

The  sample  problem  represents  a  "benchmark"  calculation  of  MASH  1.0  on 
the  Two-Meter  Box  Test  Bed  experiments  performed  at  APRF.^°'^’  The 
results  of  the  MASH  analysis  were  generally  within  15%  of  the 
experimental  measurements  for  both  differential  and  integral  free-field 
and  in-box  neutron  and  gamma-ray  dose.  There  was  also  excellent 
agreement  in  the  protection  factor  analysis  for  the  box.  This  sample 
problem  was  independently  analyzed  by  both  SAIC  and  ORNL  with  C/C 
ratios,  i.e.,  SAIC  calculations/ORNL  calculations,  typically  within  5%. 
The  sample  problem  input  and  output  for  each  code  is  given  in  the 
respective  sections  of  the  report.  However,  each  part  of  the  sample 
problem  fits  into  the  data  flow  shown  on  Figure  1-4,  and  the  user  should 
take  time  to  see  which  parameters  in  one  code  depend  on  parameters  from 
the  previous  code,  i.e.,  the  axial  and  radial  mesh  between  DORT  and 
GRTUNCL.  In  the  discussion  of  the  sample  problem  in  each  section,  most 
of  these  dependencies  are  identified. 
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2.0  GIP:  A  GROUP-ORGANIZED  CROSS  SECTION  INPUT  PROGRAM* 


2.1  INTRODUCTION  TO  GIP 


2.1.1  Background 

GIP  is  an  auxiliary  code  used  to  pre-mix  the  material  cross-section  sets 
for  very  large  discrete  ordinates  calculations  (relative  to  available 
core  space).  The  motivation  for  developing  GIP  was  due  to  complications 
arising  when  the  amount  of  core  space  required  for  the  mixing  table 
exceeded  the  available  core  storage.  GIP  was  written  to  treat  each 
component  of  the  Legendre  expansion,  i.e.,  Pl  term,  of  a  cross-section 
set  as  a  separate  nuclide.  This  data  processing  treatment  was  seen  as  a 
requirement  in  the  1960's,  when  the  code  originated.  Although  certain 
features  of  the  mixing  table  expedite  the  mixing  of  Pl  sets,  there  is 
little  doubt  the  code  would  be  more  convenient  for  present-day  problems 
if  all  of  the  components  of  the  Legendre  expansion  for  a  cross-section 
set  were  treated  as  a  unit. 

GIP  accepts  nuclide-organized  microscopic  cross-section  data  from  either 
the  input  stream  in  card- image  format  or  from  a  data  library  prepared  by 
the  ALCl’  program.  Macroscopic  cross  section  mixtures  can  be  prepared 
as  specified  by  a  mixing  table  simila  to  that  of  DORT^.  The  total 
upscatter  cross  section  can  be  calculated  and  inserted  into  the  set. 

The  result  is  a  "GIP"  cros .  section  library  file  (defined  in  Section 
2.5).  Microscopic  and/or  macroscopic  cross-section  data  can  be  included 
in  the  output  cross-section  library  file  and/or  printed  output  file. 

me  chief  virtues  of  GIP  are  its  extreme  simplicity  and  its  high 
compatibility  with  DORT,  ANISN^,  and  related  codes.  It  is  operable  on 
virtually  any  type  computer  that  provides  sequential  scratch  files.  It 
uses  the  FIDO  card-image  input  processor  described  in  Appendix  A,  and 
shares  many  subroutines  with  DORT.  Its  major  disadvantage  is  the 
inability  to  translate  complex  input  library  files  such  as  ISOTXS.^ 


2.1.2  Method  Used 

The  cross  sections  specified  in  the  input  stream  are  selected,  and  the 
number  of  energy  groups  which  can  be  processed  at  one  time  is  decided. 
The  groups  for  the  amount  of  core  allocated,  i.e.,  "one  corefull,"  are 
selected  as  each  nuclide  is  read  and  dumped  onto  a  source  file.  The 
remaining  groups,  if  any,  are  written  to  a  holding  file.  When  all 
nuclides  have  been  located,  the  data  are  read  from  the  source  file  into 


*W.  A.  Rhoades  and  M.  B  Emmett,  "DOS:  The  Discrete  Ordinates  System," 
ORNL/TM-8362,  Oak  Ridge  National  Laboratory,  (September  1982). 
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core  and  written  in  group-ordered  format  onto  a  sorting  file.  A  new 
corefull  of  data  is  then  moved  from  the  holding  file  to  the  source  file, 
and  then  to  the  sorting  file  as  before.  Unprocessed  groups,  if  any,  are 
spilled  to  a  second  holding  file,  which  is  processed  like  the  first 
holding  file.  This  sequence  continues  until  all  groups  have  been 
processed.  Efficiency  is  improved  when  one  group  of  data  can  be  written 
directly  to  the  sorting  file  each  time  the  source  file  is  loaded.  In 
the  final  step,  the  group-organized  data  are  read,  mixed,  edited,  and 
written  to  the  output  file. 

The  advantages  of  the  GIP  system  are  that  it  can  process  a  cross  section 
volume  of  several  coreful  Is  with  inconsequential  cost,  using  only 
sequential  files,  and  that  it  is  easily  adapted  to  new  or  different 
computing  environments.  Unfortunately,  if  the  cross  section  volume 
increases  to  ten  or  more  corefulls,  for  example,  the  sorting  process  may 
become  inefficient. 

The  GIP  method  was  originated  by  W.  W.  Engle,  Jr.  in  a  program  called 
TAPEMAKER^,  the  predecessor  to  the  ALCl  program,  which  operated  on  the 
IBM  7090  before  the  days  of  random  access  files.  The  basic  procedure 
has  changed  little  since  then. 


2.2  GIP  INPUT  REQUIREMENTS 

The  following  input  cards  are  required  to  execute  GIP.  Default  values 
are  in  brackets  ([]). 


Title  Card  (72  alphanumeric  character  description) 


INPUT  DATA  BLOCK  1 

1$  Array  -  Integer  Control  Parameters 
IGM  number  of  energy  groups 

IHT  position  of  total  cross  section  in  cross-section  table 
IHS  position  of  self-scatter  cross  section  in  cross-section 
table 

IHM  cross-section  table  length  per  energy  group 
(usually  IHM  =  IHT  +  IGM) 

MS  cross-section  mixing  table  length 

-  5  — 

MCR  number  of  materials  read  from  cards 

MTP  number  of  materials  read  from  input  cross-section 

library  tape  (nuclide  or  GIP  format) 

MTM  total  number  of  materials  (MCR+MTP+MIXTURES) 
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ITH 


output  cross-section  library  flag 
0/1  -  forward/adjoint  cross-section  library 
ISCT  maximum  order  of  Legendre  expansion  of  cross  sections 


IPRT  output  cross-section  print  control  flag 

0/1/2  =  print  all  materials/none/mixtures  only 
lOUT  output  cross-section  library  control  flag 

0/1/2  =  output  all  material  s/none/mixtures  only 
IDOT  output  cross-section  library  format  flag 
0/1/2  =  ANISN/DOT  IlI/OOT  IV  format 
NBUF  number  of  k-bytes  of  core 

E  (terminate  array  with  "E") 

T  (terminate  block  with  "T")  [T  always  required] 


—  Mixing  Table 


INPUT  DATA  BLOCK  2 

10$  Array  -  Material  Numbers  (MS  entries) 

11$  Array  -  Component  Numbers  (MS  entries) 

12*  Array  -  Density  Multipliers  (MS  entries) 

7$  Array  -  Mix  Code  (optional  -  MTM  entries) 

13$  Array  -  Nuclide  ID  Numbers  on  Library  File  (MTP  entries  required 
only  if  IDATl  is  not  equal  to  2) 

T  (terminate  block  with  "T")  [T  always  required] 

INPUT  DATA  BLOCK  3 

14*  Array  -  Cross  Sections  for  Nuclide  1,  ANISN  format,  all  groups 


[each  new  nuclide  must  start  on  a  new  card] 

-  Cross  Sections  for  Nuclide  MCR,  ANISN  format,  all  groups 
(IHM*IGM*MCR  entries  required) 

T  (terminate  block  with  "T")  [T  required  if  MCR  >  0] 
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2.3  GIF  INPUT  DATA  NOTES 


Except  for  thi  title  card,  all  data  are  read  using  the  FIDO  input 
system.  A  detailed  description  of  the  FIDO  input  system  is  given  in 
Appendix  A.  Data  arrays  are  entered  in  blocks,  each  terminated  by  a 
"T",  Unused  data  arrays  (e.g.,  10$  if  MS=0)  are  not  entered,  but  a  "T" 
must  still  be  entered  to  signal  the  termination  of  each  block.  Multiple 
problems  can  be  stacked  with  a  blank  card  separating  cases.  Input  data 
are  not  saved  between  stacked  cases. 

1$  Array  The  meaning  of  the  first  eight  input  parameters  of  the  1$ 
array  are  compatible  with  6RTUNCL  (Section  3.0)  and  DORT  (Section  4.0). 

IHT,  IHS,  IHM  The  discussion  of  these  input  parameters  is  given  in 
Section  2.4.1. 

MCR,  MTP,  MTM  GIP  assigns  storage  space  (IHM*IGM  words/set)  for  MTM 
sets  of  cross  sections,  called  "materials."  The  first  MCR  spaces  are 
filled  with  data  read  from  cards  in  the  14*  array.  The  next  MTP 
material  spaces  are  filled  with  nuclide  data  read  from  the  data  set 
mounted  on  the  input  library  logical  unit  (default=8)  and  stored  in  the 
order  indicated  by  the  13$  array.  The  remaining  spaces  between  MCR+MTP 
and  MTM  are  available  for  preparing  mixtures. 

NOTE:  If  MCR=0,  the  14*  array  and  corresponding  data  block 
terminator  is  not  required. 

ITH  If  ITH=1,  two  major  reordering  steps  are  carried  out  to  produce  an 
adjoint  cross-section  library: 

1.  The  inscatter  matrix  is  transposed,  i.e.,  the  table  position 
associated  with  group  g  describing  scattering  from  g'  to  g 
is  changed  to  describe  scattering  from  g  to  g'. 

2.  The  ordering  of  the  groups  is  reversed,  i.e.,  data  for  group 
IGM  appear  first  in  the  output  file,  followed  by  IGM-1,  etc. 

A  simple  three  group  example  is  illustrated  in  Section  2.3.3. 

ISCT  When  the  order  of  scatter  is  greater  than  zero,  GIP  expects  the  P^ 
cross  section  to  be  material. M+1,  the  Pj  cross  section  to  be  M+2,  etc., 
where  M  is  the  Pq  material  number: 


Pq  Data,  Nuclide  1 

Pi 

Pa 


PjscT  Data,  Nuclide  1 
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Pq  Data,  Nuclide  2 

Pi 

P2 


PjscT  Data,  Nuclide  2 


For  components  other  than  Pq,  cross  section  positions  other  than 
positions  IHT+1  through  IHM  may  be  zero. 

IPRT,  lOUT  If  I0UT=0,  the  output  includes  MCR+MTP  microscopic  cross 
sections,  plus  (MTM-MCR-MTP)  mixtures.  If  I0UT=2,  only  the  mixtures 
will  be  output.  Printed  cross-section  edits  are  similarly  controlled  by 
IPRT. 

For  most  DORT  problems,  I/O  manipulation  can  be  reduced  by  asking  only 
for  the  output  of  the  mixtures  from  6IP.  They  are  then  referred  to  in 
DORT  such  that  material  one  is  the  first  GIP  mixture,  etc.  Any 
microscopic  data  to  be  used  in  DORT  activity  edits  must  be  included  as  a 
mixture,  as  must  nuclides  whose  concentrations  are  to  be  modified  in  a 
search. 

IDOT  This  parameter  identifies  three  possible  output  cross  section 
library  formats.  Only  the  ANISN  and  DOT  IV  formats  are  discussed  since 
they  are  used  in  present  day  applications.  The  DOT  III  format  was 
retained  from  earlier  versions  of  GIP,  and  although  still  operational, 
should  be  avoided,  unless  DOT  III  will  be  used  for  the  final 
calculation. 

NBUF  This  parameter  is  only  applicable  for  IBM  machines  and  must  allow 
enough  buffer  space  for  the  data  sets  which  are  listed  in  Section  2.6. 

10$,  11$,  and  12*  Arrays  The  cross  section  mixing  table  is  used  to 
combine  elements  into  macroscopic  mixtures.  Experience  will  reveal  that 
only  the  imagination  limits  its  flexibility.  As  with  DORT,  the  integers 
in  the  mixing  table  refer  to  a  continuous  array  of  MTM  cross  section 
sets  of  which  the  first  MCR+MTP  are  nuclide  data  read  from  card- image 
input  and  a  library  file,  respectively.  All  of  the  sets  beyond  MCR+MTP 
are  preset  to  zero  before  the  mixing  table  is  executed.  In  non-search 
problems  where  cross-section  storage  is  difficult,  i.e.,  large  problems 
that  do  not  involve  material  buckling  or  concentration  searches, 
material  spaces  originally  used  for  input  nuclides  can  be  reused  for 
mixtures.  While  the  general  rules  for  creating  mixtures  are  equally 
applicable  for  GIP,  GRTUNCL,  and  DORT,  it  should  be  noted  that  reference 
to  eigenvalue  modification  in  the  DORT  mixing  table  description  has  no 
application  to  GIP  mixing.  The  interpretation  rules  applicable  to  GIP 
are  as  follows: 
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a.  If  the  mixture  number  is  N  and  the  component  number  is  0,  then 
the  cross  sections  in  mixture  N  wi11  be  multiplied  by  the 
number  entered  in  the  density  column: 

‘^MIXTURE  NdHEU)  “  ^MIXTURE  11(010)  *  DENSITY 

b.  If  the  mixture  number  is  N  and  the  component  number  is  M,  then 
the  cross  sections  in  component  M,  multiplied  by  the  density, 
will  be  added  to  the  cross  sections  in  mixture  N: 

‘^MIXTURE  N(NEW)  “  ‘^MIXTURE  M(OLO)  +  ‘^COMPONENT  H  *  DENSITY 

Note:  Either  a  mixture  or  a  component  may  be  made  up  of 

microscopic  or  macroscopic  cross  sections  for  a  single 
isotope  or  mixture  of  isotopes. 

A  sample  mixing  table  showing  the  various  options  is  given  below. 


MIXTURE 
(10$  ARRAY) 


6 

6 

7 

7 

7 


COMPONENT 
(11$  ARRAY) 


1 

3 
2 

4 
0 


DENSITY 
(12*  ARRAY) 


0.4 

0.5 

0.4 

0.5 

3.0 


The  mixture  table  given  above  would  do  the  following: 

(1)  Add  components  1  and  3  with  densities  0.4  and  0.5, 
respectively,  to  form  mixture  6: 

a*  -  <7,  *  0.4  +  aj  *  0.5 

(2)  Add  components  2  and  4  with  densities  0.4  and  0.5, 
respectively,  to  form  mixture  7: 

ay  ~  02*  0.4  +  (74  *  0.5 

(3)  Multiply  mixture  7  by  3.0:  oj  -  oj  *  3.0 

10$  Array  If  the  10$  entry  is  tagged  with  a  negative,  the  next  ISCT 
components  will  be  treated  as  components.  For  example: 


10$  11$  12*  (with  ISCT  -  3) 

-13  1  1.0 


will  be  equivalent  to 
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10$ 


11$ 


12* 


(with  ISCT  •=  0) 


13  1  1.0 

14  2  1.0 

15  3  1.0 

16  4  1.0 


7$  Array  The  numbers  in  the  mixing  table  normally  refer  to  positions  in 
the  material  block,  which  contains  MCR  nuclides  from  cards,  followed  by 
MTP  nuclides  from  tape  and  MTM-MCR-MTP  mixtures.  It  is  often 
convenient,  however,  when  constructing  the  mixing  table  to  refer  to 
fictitious  "mix  code"  numbers.  The  7$  array  can  be  entered  to  define 
the  list  of  fictitious  mix  codes  corresponding  to  each  material.  If  the 
7$  array  is  omitted,  the  mix  code  is  equal  to  the  material  number. 

13$  Array  A  negative  entry  in  the  13$  array  replaces  the  following  ISCT 
entries  with  successive  ID's.  Thus: 


13$  13$ 

-101  101 

-101  is  equivalent  to  102 

-101  103 


14*  Array  The  input  of  the  14*  array  is  performed  by  subroutines  which 
have  certain  restrictions  in  addition  to  those  of  normal  FIDO  input: 

a.  The  nuclide  spaces  are  preset  to  0.0,  so  that  "E"  or  "FO" 
will  have  the  effect  of  filling  the  remaining  space  with  0.0, 
but  "E"  and  "F"  must  not  be  used  in  the  input  for  the  last 
nucl ide. 

b.  The  14*  or  14**  designation  may  precede  each  nuclide  block, 
but  is  not  required  except  in  the  first  block. 

c.  Entries,  including  operators  such  as  "T",  following  the 
last  data  item  for  nuclides  other  than  the  last,  and  on  the 
same  card  as  the  last  item,  will  be  ignored. 

d.  The  "T"  which  terminates  this  block  must  appear  alone  in 
column  3  of  a  separate  card. 


2.3.1  Special  Diffusion  Theory  Option 

If  the  cross-section  set  contains  a  transport  cross  section  in  position 
N,  then  setting  ISCT  =  -N  causes  the  total  cross  section  (position  IHT) 
to  be  replaced  by  the  transport  cross  section  and  the  self-scatter  cross 
section  (position  IHS)  to  be  reduced  such  as  to  maintain  a  constant 
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absorption  cross  section.  The  resulting  cross-section  set  is  suitable 
for  use  in  a  Pq  DORT  calculation,  especially  one  using  the  diffusion 
package. 

NOTE:  Negative  entries  in  the  10$  array  must  not  be  used  with 
this  option. 


2.3.2  Upscatter  Option 

If  the  self-scatter  cross  section  position  (IMS)  is  greater  than  IHT+1, 
the  upscatter  processor  calculates  the  total  upscattering  cross  section 
from  each  group  and  places  it  in  the  appropriate  table  position.  No 
user  action  is  required. 


2.3.3  Adjoint  Reordering  Example 

A  three-group  example  showing  the  relationship  between  a  forward  and 
adjoint  cross-section  set  is  shown  below.  In  this  example,  there  is  no 
upscatter,  one  activation  cross  section,  IHT  =  4,  IHS  =  5,  and  IHM  =  7. 


Direct 

Adjoint 

<(1) 

<(1) 

<(3) 

•'a  (3) 

<rM3) 

a{l-l) 

.7(3-3) 

0 

0 

0 

0 

<(2) 

o^{2) 

»'<(2) 

ua^[Z) 

a\2) 

a(2-»2) 

<7(2-2) 

a{U2) 

<7(2-3) 

0 

0 

a^(3) 

<7^(1) 

0^(3) 

<{1) 

uaUZ) 

*'<7;(i) 

a'{3) 

<7^(1) 

(7(3-3) 

<7(1-1) 

a(2-3) 

<7(1-2) 

.7(1-3) 

<7(1-3) 
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2.4  INPUT  LIBRARY  FORMAT 


The  input  library  format  from  which  MTP  nuclides  are  taken  is  defined  in 
the  following  manner: 


ALC  Cross  Section  Library  Format 

C  PROPOSED  19  MAY  80 

C 

CF  ALC 

CE  TRANSPORT  CODE  CROSS  SECTION  DATA 

C 

Q  irifrifc  4r  ir  4r  4r  ^  4r  *  ir  ^  4r  *  *  *  4r  *  *  *  lAriAr  ifr  lAr  ifr  4r  *  4r  A  *  4r  4r  ir  4r  4r  :lr  4:  iriA:  4r  4r  ir  4r  4nlr 

C 

CD  THE  TERMINATION  RECORD  DEFINES  THE  LENGTH  OF  THE 

CD  DATA  SET  AND  THE  NUMBER  OF  NUCLIDES 

C 

CD  THE  ID  VALUES  MUST  BE  IN  ASCENDING  ORDER 

C 

C . . 

CS  FILE  STRUCTURE 


RECORD  TYPE 


**************** poR  ALL  NUCLIDES) 

*  CONTRAL  DATA  FOA  A  NUCLIDE 

*  CROSS  SECTION  DATA  FOR  A  NUCLIDE 

'k'k'kir-kic'k’k'kieicit’k’k’k'k 


PRESENT  IF 


ALWAYS 

ALWAYS 


TERMINATION 


ALWAYS 


CONTROL  DATA  FOR  A  NUCLIDE 
N0G,NCTL,NCC,NCID,(NAME(I),I=I,12) 
le-NUMBER  OF  WORDS 


NUMBER  OF  ENERGY  GROUPS  FOR  THIS  SET 
LENGTH  OF  CROSS  SECTION  TABLE  FOR  THIS  SET 
=0  SET  WAS  ADDED  TO  LIBRARY 
=2  SET  REPLACED  AND  EXISTING  SET 
IDENTIFICATION  NUMBER 
ARBITRARY  DESCRIPTION,  A4  FORMAT 
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c- 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

C 

C- 

C 

C 

C- 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

C 

C- 


CROSS  SECTIONS  FOR  A  NUCLIDE 

( (CRX{ IH, IG) , IH=1 ,NCTL) . IG=1 ,NOG) 

NCTL*NOG-NUMBER  OF  WORDS 

CRX  CROSS  SECTION  DATA  ORDERED 

AS  PER  SECTION  2.4.1 

NCTL  AS  SPECIFIED  BY  PREVIOUS  RECORD 

NOG  AS  SPECIFIED  BY  PREVIOUS  RECORD 


TERMINATION 

NOG,NCTL,NCC,NCID,(NAME(I),I=l,12) 

16-NUMBER  OF  WORDS 

NCC  7,  ALWAYS 

OTHER  ITEMS  ARBITRARY 


2.4.1  ANISN  Nuclide  Format  Cross-section  File 

In  a  normal  GIP  problem,  cross  sections  are  read  from  card  input  and/or 
from  an  external  data  set  in  nuclide-organized  format,  i.e.,  all  the 
cross  sections  for  one  group  of  one  nuclide,  followed  by  other  groups 
for  that  nuclide,  and  finally  followed  by  data  for  other  nuclides. 
Within  a  group,  GIP  expects  the  ordering  of  data  in  the  cross  section 
table  in  the  following  format: 


Table  Position  Entry 

1  0^9) 


Cross  Section  Type 


First  activation  cross  section 
(if  any) 


IHT-3 


0^(9) 


Last  activation  cross  section 
(if  any) 


IHT-2 


Absorption 


IHT-1 

va^{q) 

Neutron  Production 

IHT 

Total  removal 

IHT+1 

Total  upscatter  cross  section  from 
group  g  (omit  this  entry  if  NUS=0) 

IHS -NUS 

a(g+NUS-g) 

Scattering  from  group  g+NUS  to  g 

IHS-1 

t^(g+i-g) 

Scattering  from  group  g+1  to  g 

IHS 

<^(g-*g) 

Scattering  from  group  g  to  g 

IHS+1 

‘^(g-i-g) 

Scattering  from  group  g-1  to  g 

IHM 

a(g-NDS-g) 

Scattering  from  group  g-NDS  to  g 

From  this,  it  can  be  seen  that: 

NUS  =  IHS-IHT-2  =  number  of  upscatter  groups,  if  greater  than  0, 
NDS  *  IHM-IHS  *  number  of  downscatter  groups, 

L  *  IHT-3  »  number  of  activation  cross  sections. 

Special  illustrations  of  interest  are: 


IHM  -  IGM  +  3 
IHS  =  4 
IHT  =  3 


and. 


Full  downscatter;  no  upscatter; 
no  activation  cross  section 
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IHM  =  IGM  +  5  +  NUS 
IHS  =  6  +  NUS 
IHT  =  4 


Full  downscatter;  NUS  upscatter; 
room  for  an  activation  cross 
section  in  position  1. 


Thus  the  parameters  IHT,  IHS,  and  IHM  completely  describe  the  format  of 
the  cross  sections.  If  there  are  no  activity  cross  sections,  IHT=3.  If 
there  is  no  upscatter  IHS  =  IHT  +1.  If  there  is  no  downscatter  IHM  = 
IHS  (i.e.,  a  one  group  problem).  If  there  is  upscatter,  GIP  will 
compute  a  total  upscatter  cross  section  for  each  group  of  each  material 
and  place  that  cross  section  in  position  IHT  +  1.  The  activity  cross 
sections  are  only  used  for  activity  calculations  and  not  used  in  the 
transport  process  itself. 


2.5  GIP  OUTPUT  FILE 

The  GIP  output  file  is  group-ordered  for  transport  codes  and  this  format 
is  compatible  with  both  ANISN  and  DORT  requirements.  The  groups  are 
normally  ordered  from  high  to  low  neutron  energy,  then  from  high  to  low 
photon  energy,  if  any  photon  groups  are  present. 


C- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C- 

C- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C- 


GIP  Cross  Section  Library  Format 


PRINCIPAL  CROSS  SECTION  DESCRIPTION 
(PCSD(IH),IH=1,IHT) 

NUMBER  OF  WORDS  =  MULT*IHT 

PCSD(IH)  PRINCIPAL  CROSS  SECTION  LABELS  -  (A6) 


NUCLIDE  IDENTIFICATION 
(NUC{MT),MT=1,MTM) 

NUMBER  OF  WORDS  =  MULT*MTM 
NUC(MT)  NUCLIDE  LABELS  -  (A6) 
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c- 

c 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

C 

C- 


CROSS  SECTION  DATA 


((SIG(IH,MT),IH=1,IHP),MT=1,MTM) 
NUMBER  OF  WORDS  =  IHP*MTM 


SIG(IH,MT) 

1  TO  IHT-5 
IHT-4 
IHT-3 
IHT-2 
IHT-1 
IHT-0 
IHT+1 


CROSS  SECTION  DATA  BY  TABLE  POSITION, 

THEN  BY  NUCLIDE.  TABLE  POSITIONS  CONTAIN: 
ARBITRARY  DATA,  SPECIFIED  BY  USER,  OR  ABSENT 
FISSION  YIELD  FRACTION  (RECOMMENDED) 

FISSION  CROSS  SECTION  (RECOMMENDED) 
ABSORPTION  CROSS  SECTION 
NEUTRON  PRODUCTION  CROSS  SECTION 
TOTAL  CROSS  SECTION 

UPSCATTER  FROM  GROUP  IG+(IHS-1-IHT)  TO  IG 


IHS-1  UPSCATTER  FROM  GROUP  IG+1  TO  IG 
IHS  SELF  SCATTER  FOR  GROUP  IG 
IHT+1  DOWNSCATTER  FROM  GROUP  IG-1  TO  IG 


IHM  DOWNSCATTER  FROM  GROUP  IG+IHS-IHM  TO  IG 
IHM+1  TOTAL  SCATTER  FROM  GROUP  G  TO  ALL  GROUPS 

(PRESENT  ONLY  IF  IHS  IS  GREATER  THAN  IHT+1) 

IHS  MAY  BE  IHT+1  IF  UPSCATTER  IS  ABSENT. 
TRANSFERS  FROM  GROUPS  LESS  THAN  1  OR  GREATER 
THAN  IGM  ARE  ZERO.  POSITIONS  LESS  THAN  OR 
EQUAL  TO  IHT  ARE  ZERO  FOR  PL  COMPONENTS 
OTHER  THAN  THE  OTH. 

EACH  COMPONENT  OF  A  PL  SET  IS  TREATED  AS  A 
SEPERATE  NUCLIDE.  THUS,  M  SETS  WOULD 
COMPRISE  M*NQUAD+M  NUCLIDES 
IHP  EQUALS  IHM  UNLESS  IHS. GT. IHT+1 ,  THEN  IHM+1 


2.6  LOGICAL  UNIT  REQUIREMENTS 

Below  is  a  listing  of  the  files  required  to  execute  a  GIP  case  along 
with  the  default  values  used  in  the  code.  In  setting  up  a  GIP  case, 
efforts  must  be  made  for  these  units  to  be  available. 


1.  Logical  Unit  1  -  SCRATCH 

2.  Logical  Unit  2  -  SCRATCH 

3.  Logical  Unit  3  -  SCRATCH 
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4.  Logical  Unit  8  -  GIP  formatted  Cross-section  Library  Output 

5.  Logical  Unit  9  -  ANISN  formatted  Cross-section  Library  Input 

6.  Logical  Unit  4  -  SCRATCH 

7.  Logical  Unit  6  -  Printed  Output 

8.  Logical  Unit  5  -  Card  Input 


Logical  unit  assignments  for  the  first  six  data  files  can  be  modified  by 
altering  locations  15-20  of  the  1$  array  (not  shown  in  Section  2.2)  to 
the  new  logical  unit  numbers.  The  new  values  will  not  be  listed  in  the 
input  edit,  however. 


2 . 7  PROGRAMMER  I NFORMAT I ON 


2.7.1  Inter-machine  Adaptability 

The  GIP  code  is  intended  to  be  easily  adaptable  to  any  type  of 
sophisticated  computer,  and  yet  to  take  advantage  of  certain  localized 
structural  features  which  may  be  machine-dependent. 

In  general,  the  guidelines  of  ANS-STD. 3-1971®  are  followed.  This 
requires  general  adherence  to  a  simple,  standard  FORTRAN  language  except 
where  deviations  provide  important  improvements  in  capability  and  can  be 
documented.  In  addition,  machine-dependent  features  have  been  kept 
localized  and  have  not  been  included  in  the  subroutines  which  perform 
actual  computation. 

The  recommended  procedures  of  the  Committee  on  Computer  Code 
Coordination  (CCCC)^**  have  been  followed  where  practical.  Compliance 
with  these  standards  has  been  incomplete  where  cost  was  prohibitive,  the 
nature  of  the  codes  did  not  allow  it,  or  the  expected  level  of 
performance  could  not  be  obtained  in  that  fashion. 

Where  minor  or  certain  machine-dependent  features  are  required, 
alternative  features  are  enclosed  in  pairs  of  3-character  "language 
flags."  The  alternative  statements  remain  in  the  source  program,  with 
inappropriate  sections  transformed  into  comment  statements.  If  the  code 
is  set  up  for  IBM  operation,  for  example,  it  might  contain: 


CIB 

CIB 

CDC 

ENTRY 

IBCDC(H,E,L,P) 

C 

CDC 

ENTRY 

IBCDC 
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The  corresponding  CDC  configuration  would  be: 


CIB 

C  ENTRY  IBCDC{H,E,L,P) 

CIB 

CDC 

ENTRY  IBCDC 
CDC 


All  versions  of  a  given  procedure  are  thus  available  for  inspection  by 
all  users.  The  selection  of  options  is  made  by  a  computer  program  at 
distribution  time.  A  listing  of  machine-dependent  sections  can  also  be 
prepared  in  that  process. 

The  language  flags  achieve  the  major  objective  of  having  a  single, 
unified  source  for  each  program  which  is  maintained  for  all  users.  With 
these  provisions,  the  basic  FORTRAN  programs  are  operable  on  IBM,  CDC, 
UNIVAC,  CRAY,  Amdahl,  and  other  computers,  except  that  system-dependent 
service  routines  as  specified  by  CCCC  must  be  provided. 

Optional  packages  and  procedures  which  provide  enhanced  convenience  are 
also  available.  The  optional  run-time  storage  allocation  requires 
system-dependent  routines.  Instructions  for  installing  these  options 
are  distributed  with  the  source  programs.  All  known  users  at  this  time 
use  all  of  the  optional  enhancements  available  to  them.  Even  so,  the 
basic  operation  with  FORTRAN  routines  plus  the  CCCC  package  remains 
available  if  needed. 


2.7.2  Service  Subroutines 

Certain  standard  service  subroutines  are  specified  by  the  CCCC  for  use 
in  reactor  physics  codes.  The  service  routines  used  in  these  codes 
include: 


TIMER 

REED 

RITE 

DRED 

DRIT 

DOPC 


Provides  timing  and  job  identification  data 
Provide  sequential  access  to  data  files 

Provide  random  access  to  data  files 

jvides  initiating,  closing,  and  certain  repositioning 
of  data  files 
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CRED 


CRIT 


Provide  block  transfer  of  data  between  fast  and  slow 
memory . 


Many  of  these  subroutines  also  call  other  subroutines.  Many  are 
entirely  system  dependent.  Each  configuration  to  be  distributed 
contains  an  appropriate  set  of  service  subroutines,  insofar  as  possible. 
The  realities  of  computing  environments  may  require  local  modification 
or  substitution.  The  specifications  given  in  Reference  4,  together  with 
extensive  in-stream  comments,  provide  guides  for  such  modification. 
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2.9  SAMPLE  PROBLEM 


A  complete  listing  of  the  input  cards  for  the  sample  problem  is  given  in 
Figure  2-1,  and  some  selected  output  is  shown  in  Figure  2-2.  The  sample 
problem  demonstrates  the  processing  of  the  materials  for  the  air-over- 
ground  analysis  of  the  two-meter  box  experiments.^*® 

In  viewing  Figure  2-1,  the  input  illustrates;  69  energy  groups  (IGM),  a 
cross-section  table  length  (IHM)  of  72,  no  upscatter  (IHT=3,  and  IHS=4), 
and  a  mixing  table  length  (MS)  of  558.  No  material  data  was  read  in 
from  cards  (MCR=0)  and  144  materials  were  read  in  from  tape  (MTP=144). 
Since  ISCT=5,  there  were  actually  24  different  nuclides  read  in  from 
tape,  each  with  a  Pq  through  P5  component.  The  total  number  of  mixtures 
(MTM)  was  198,  and  only  mixtures  were  output  (I0UT=2)  to  the  GIP 
library.  No  print  was  requested  for  the  printed  output  (IPRT=1),  and  a 
DOT  IV  formatted  cross-section  file  was  output  (ID0T=2).  All  comments 
after  the  slash  (/)  are  ignored  in  FIDO  input  and  are  only  useful  for 
quick  identification  of  the  input  parameters.  The  GIP  sample  input  in 
Figure  2-1  shows  multiple  mixtures  of  the  same  material,  i.e.,  ground 
and  air,  with  different  number  densities.  This  allows  mixing  the  cross 
sections  for  several  different  air-over-ground  calculations  in  only  one 
GIP  case. 

The  selected  GIP  output  shown  in  Figure  2-2  first  illustrates  the  input 
parameters  read  in  the  first  data  block,  followed  by  the  memory 
requirements  to  run  this  particular  GIP  case,  the  input  library  record 
length,  and  an  indication  that  the  second  data  block  has  been 
successfully  read.  The  output  then  produces  the  mixing  table  (10$,  11$, 
and  12*  arrays)  along  with  the  mixing  codes  (7$  array)  and  nuclide 
identification  numbers  (13$  array).  This  output  is  useful  for  checking 
the  input  to  make  sure  there  are  no  errors  in  nuclides  selected  for 
mixtures,  number  densities  used  in  mixtures,  and  nuclides  selected  from 
the  input  library.  The  mixing  table  is  followed  by  a  listing  of  the 
nuclides  extracted  from  the  input  cross-section  library  file.  This 
table  is  also  useful  for  verifying  the  elements  pulled  off  of  the  input 
cross-section  library  file.  In  this  table,  the  user  can  also  verify  the 
Pl  components  used  in  the  mixing.  The  output  then  shows  some  messages 
informing  the  user  of  the  cross-section  sorting  process  discussed  in 
Section  2.1.2.  Finally,  the  output  lists  the  titles  for  the  group- 
organized  cross  sections  written  to  the  output  unit.  If  the  print  flag 
had  been  turned  on  (IPRT=0  or  2),  the  cross  sections  would  have  been 
printed  after  the  titles.  It  should  be  noted  that  setting  the  print 
option  to  print  either  all  elements  and  mixtures  (IPRT=0)  or  only 
mixtures  (IPRT=2)  will  produce  a  considerable  amount  of  output  for  large 
group  structures  and  high  orders  of  scattering. 
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gip  mixtures  for  the  10/89  two  meter  box  experiments  --  p5  forward 


1$$  69  3  4  72  558  /igm,iht,ihs,ihm,ms 
0  144  198  0  5  /mcr,mtp,mtm,ith,isct 
1  2  2  120  /iprt,iout,idot,nbuf 
e  t 


10$$  4il45  150  19q6  4il51  156  10q6  4il57  162  3q6  4il63  168  5q6 
/  aprf  ground  borated  concrete  air  1020  steel 

4il69  174  19q6  4il75  180  19q6  4il81  186  3q6  4il87  192  3q6 
/  aprf  ground  aprf  ground  air  air 

4il93  198  3q6 
/  air 

11$$  58il  60  10i67  78  40i85  126  4il39  144  /  aprf  ground 


16il  18  4i31  36  16i43  60  4i91  96 
4il03  108  10il27  138  /  borated  concrete 


4il  6  10i25  36  4i79  84  / 
4il9  24  16i55  72  10i97  108 
58il  60  10i67  78  40i85  126 
58il  60  10i67  78  40i85  126 
4il  6  10i25  36  4i79  84  / 
4il  6  10i25  36  4i79  84  .  / 
4il  6  10i25  36  4i79  84  / 


air 

/  1020  steel 


4il39 

144 

/ 

aprf 

ground 

4il39 

144 

/ 

aprf 

ground 

air 

air 

air 

12** 


/number  densities  (atoms/b-cm) 


6r4. 236-02 
6r4. 752-05 
6rl. 377-03 
6r2. 048-04 
6r2. 783-07 


6r9. 586-09 
6r4. 178-02 
6r9. 514-03 
6r2. 599-05 
6r2. 793-07 


6r3. 509-08 
6rl. 427-04 
6r3. 610-06 
6r7. 199-06 
6r4. 858-07 


6r:  ■’75-04 
6r9. 126-05 
6r3. 537-06 
6r3. 213-04 
6r7. 315-08 


/aprf  ground-34%  h2o 


6r7. 020-03 
6rl. 659-03 
6rl. 431-03 


6r2. 887-04 
6r4. 656-03 
6r7. 667-04 


6rl. 168-03 
6rl. 080-02 
6r6. 709-04 


6r5. 908-02 
6r3. 486-03 


/borated  concrete 


Figure  2-1.  Sample  GIP  Input  for  the 
Two-Meter  Box  Air-Over-Ground  Analysis. 
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6r6.122- 

07 

6r3. 985-05 

6rl. 100-05 

6r2. 383-07 

/air 

-  10- 

24-89(a) 

6r8.078- 

04 

6r4. 213-04 

6r6. 113-05 

6r7. 381-05 

6r3.877- 

04 

6r8. 391-02 

/1020 

steel 

6r2.653- 

02 

6rl. 162-08 

6r4. 254-08 

6r4. 576-04 

6r5.760- 

05 

6r3. 823-02 

6rl. 729-04 

6rl. 106-04 

6rl.669- 

03 

6rl. 153-02 

6r4. 376-06 

6r4. 288-06 

6r2.482- 

04 

6r3. 151-05 

6r8. 727-06 

6r3. 895-04 

6r3.373- 

07 

6r3. 386-07 

6r5. 889-07 

6r8. 867-08 

/aprf 

ground-20%  h2o 

6r5.819- 

02 

6r7. 553-09 

6r2. 765-08 

6r2. 974-04 

6r3.744- 

05 

6r4. 532-02 

6rl. 124-04 

6r7. 190-05 

6rl.085- 

03 

6r7. 496-03 

6r2. 845-06 

6r2. 787-06 

6rl.613- 

04 

6r2. 048-05 

6r5. 672-06 

6r2. 532-04 

6r2.193- 

07 

6r2. 201-07 

6r3. 828-07 

6r5. 763-08 

/aprf 

ground-48%  h2o 

6r3.278- 

07 

6r4.021-05 

6rl. 095-05 

6r2. 405-07 

/a 

ir 

-  11- 
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Figure  2-1.  (continued) 
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Figure  2-2.  Sample  GIP  Output  for  the  Two-Meter  Box  Air-Over-Ground  Analysis. 
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Figure  2-2.  (continued) 
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Figure  2-2.  (continued) 
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Figure  2-2.  (continued) 
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Figure  2-2.  (continued) 
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Figure  2-2.  (continued) 
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accumulated  charge  •  0.6373  min.  charge  Increment  «  0.6372m1n. 


3.0  6RTUNCL:  AN  ANALYTIC  FIRST  COLLISION  SOURCE  CODE* 


3.1  INTRODUCTION  TO  GRTUNCL 


3.1.1  Background 

In  the  develop^nent  of  DORT\  a  general  method  was  obtained  which  was 
inherently  capable  of  solving  most  two-dimensional  neutron  and  gamma-ray 
transport  problems,  including  deep  penetration.  The  approximations  of 
discrete  ordinates  theory  are  not  limiting  since,  at  least  in  principal, 
the  number  of  energy  groups,  solid  angle  segments  and  space  intervals, 
and  the  order  of  expansion  of  the  differential  scattering  cross  sections 
may  be  increased  as  necessary  to  obtain  the  desired  solution.  However, 
the  problems  which  can  be  solved  in  practice  are  limited  by  the  finite 
computer  speed,  memory  size,  and  costs.  In  order  to  extend  the 
capabilities  of  DORT,  a  combination  of  efficient  programming  and 
analytical  "tools"  were  used.  One  of  the  analytical  "tools"  developed 
was  the  analytic  first  collision  source  code  -  GRTUNCL. 

In  two-dimensional  r-z  cylindrical  geometry,  the  finite  number  of  angles 
may  result  in  an  anomaly  called  the  "ray  effect."  The  problems  in  which 
ray  effects  are  noticed  are  characterized  by  sources  and  detectors  which 
are  small  compared  to  the  total  geometry,  and  a  scattering  mean  free 
path  which  is  long  compared  to  the  space  mesh.  Hence,  if  a  problem  such 
as  a  point  source  or  point  detector  in  a  highly  absorbing  medium  is 
approximated  by  the  discrete  ordinates  difference  equations,  the 
fluences  along  a  spherical  surface  centered  about  the  source  are 
observed  to  rise  and  fall  in  a  wave-like  pattern  instead  of  being 
constant.  Furthermore,  the  peaks  in  the  distribution  are  observed  to 
fall  along  rays  following  the  polar  angles  of  the  quadrature  centered  at 
the  source. 

In  the  discrete  ordinates  solution  of  the  two-dimensional  cylindrical 
transport  equation,  the  angles  in  the  quadrature  are  arranged  in  levels 
which  are  comprised  of  directions  having  the  same  polar  direction 
cosine,  17.  Within  these  levels,  particles  change  angles  due  to  both  the 
curvature  and  scattering  derivatives.  However,  transfers  from  a 
direction  in  one  ij  level  to  one  in  another  level  occur  only  through 
scattering.  Particles  that  start  out  in  an  ij  level  tend  to  stay  in  the 
same  level  until  scattered.  Since  there  are  only  a  finite  number  of  n 
levels,  particles  tend  to  appear  only  at  space  intervals  which  are 
oriented  with  the  source  along  a  discrete  rj  level.  If  the  source  region 


*R.  L.  Childs  and  J.  V,  Pace,  III,  "GRTUNCL:  First  Collision  Source 
Program,"  Unpublished  documentation  (1982),  included  in  the 
documentation  of  the  Radiation  Shielding  Information  Center  CCC-484/D0RT 
Code  Package,  Oak  Ridge  National  Laboratory. 
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is  distributed  or  if  scattering  is  dominant,  no  ray  effects  appear. 
However,  if  the  source  is  localized  and  spatial  convection  is  dominant 
(i.e.,  the  change  in  the  particle  fluence  is  governed  by  geometric 
attenuation),  ray  effects  may  be  significant. 

An  obvious  way  to  mitigate  ray  effects  would  be  to  increase  the  number 
of  ri  levels.  However,  this  approach  is  uneconomical  and  usually  only 
slightly  effective.  Another  technique  is  to  employ  an  analytic  first 
collision  source.  This  method  essentially  removes  ray  effects  since  the 
source  is  now  distributed  continuously  in  angle.  For  points  within  a 
mean  free  path  or  so  of  the  source,  the  analytic  uncollided  fluence 
dominates.  For  intermediate  points  a  few  mean  free  paths  from  the 
source,  the  fluence  is  dominated  by  the  source  from  first  collisions 
which,  although  emitted  into  the  discrete  mesh,  is  distributed  smoothly 
in  space  due  to  the  analytic  uncollided  fluence.  For  points  many  mean 
free  paths  from  the  source,  the  fluence  is  due  to  particles  which  have 
suffered  many  collisions,  a  situation  in  which  ray  effects  would  not 
normally  appear. 

Unfortunately,  the  technical  problems  involved  in  implementing  the 
analytic  first  collision  source  in  the  general  problem  are  prohibitive. 
For  an  arbitrary  source  distribution,  the  contribution  to  each  space 
point  from  each  source  interval  must  be  calculated.  Furthermore,  the 
cylindrical  symmetry  in  r-z  geometry  must  be  accounted  for  by  an 
azimuthal  integration  for  each  source  interval.  For  example,  a  problem 
with  3000  space  points  and  only  10  azimuthal  intervals  would  require  up 
to  9  X  10^  calculations  to  determine  the  uncollided  fluence.  The  point 
source  on  the  cylindrical  axis  problem  which  produces  the  worst  ray 
effects  involves  only  3  x  10^  calculations  for  the  same  problem. 

Problems  which  have  a  co-axial  parallel  beam  source  may  also  be  treated. 
Although  these  problems  do  not  normally  show  severe  ray  effects,  the 
source  is  usually  input  in  the  directions  nearest  the  axis,  which  are 
usually  13*  or  more  from  the  axis.  This  causes  a  slightly  incorrect 
uncollided  fluence  and  also  makes  it  difficult  to  determine  the  collided 
fluence  in  the  near  axis  angles. 


3.1.2  Method  Used^ 

An  analytic  first  collision  source  technique  has  been  developed  for  use 
with  the  two-dimensional  code,  DORT,  for  the  simple  sources  described 
above.  Basically,  GRTUNCL  is  used  to  obtain  the  uncollided  fluences  and 
to  generate  space,  angle,  and  energy  dependent  first  collision  source 
distributions  for  input  into  the  DORT  code.  The  actual  calculational 
scheme  in  GRTUNCL  for  an  isotropic  source  consists  of  first  calculating 
the  uncollided  fluence  given  by; 


3-2 


4>u,g  (fi) 


(3-1) 


=  Sg{rk)exp  [-0g{rk,ri)] 
k 

AAk 

^  47r  I  Ti  -  rt  P 


where 


'ug(’*i)  the  uncollided  fluence  in  energy  group  g 
location'  r.-  due  to  an  isotropic  distributed  source  spanned  by  r^. 


at  detector 
Here 


Sg{r,j)  is  the  number  of  source  particles  emitted  at  space  point  r,j  in 
energy  group  g  per  unit  time  per  unit  surface  area,  is  the  area  on 
the  source  disk  associated  with  S-Cr^),  and  pg{T^.,ri)  is  the  number  of 
mean-free-paths  along  the  vector  from  r,j  to  r,-.  The  evaluation  of 
Equation  (3-1)  produces  estimates  of  the  direct  and  transmitted 
contributions,  providing  spans  the  resolved  and  background  sources, 
respectively. 


GRTUNCL  then  generates  a  space-,  angle-  .and  energy-dependent  first 
collision  source  given  by 
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where  0,^  represents  the  unit  vector  from  to  r,,  the  A^*'"(0)  are 
reduced  surface  harmonics  that  result  from  two-dimensional  symmetry,  and 
the  2‘{g'-*g,ri)  are  the  I'th  coefficients  in  Legendre  expansions  of  the 
energy  group-to-group  scattering  cross  sections.  The  DORT  code  uses  the 
first  collision  source  distribution  to  calculate  the  distributions  of 
the  collided  fluence  moments  throughout  the  geometry  mesh. 
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The  above  procedure  is  implemented  in  GRTUNCL  in  the  following  manner: 


1.  The  geometry  is  described  with  the  same  space  mesh  and 
material  zones  for  the  DORT  problem. 

2.  The  uncollided  fluence  (magnitude  and  angle)  is  calculated  for 
each  space  point  and  energy  group. 

3.  The  first  collision  source,  S,  a  function  of  radial  interval, 
I,  axial  interval,  J,  angular  moment,  L,  and  group,  G,  is 
calculated  for  each  space  point,  angular  moment,  and  energy 
group. 

4.  The  source  array,  S,  and  the  scalar  uncollided  fluence  are 
written  to  an  output  file. 

5.  DORT  has  been  modified  to  use,  as  an  option,  the  anisotropic 

source  array,  S,  as  the  fixed  source.  The  result  of  such  a 
calculation  is  the  collided  fluence  where  the 

arguments  are  as  before  except  that  Q,'  for  angle,  is  added. 

At  the  end  of  the  calculation,  an  option  is  available  to 
produce  either  the  collided  fluence  or  the  total  fluence 
(collided  plus  uncollided). 


3.2  GRTUNCL  INPUT  REQUIREMENTS 

The  following  input  cards  are  required  to  execute  GRTUNCL.  Default 
values  are  in  brackets  ([]). 


Title  Card  (72  alphanumeric  character  description) 


INPUT  DATA  BLOCK  1 

1$  Array  -  Integer  Control  Parameters 

ITH  input  cross-section  library  flag 

0/1  =  forward/adjoint  cross-section  library 
ISCT  maximum  order  of  Legendre  expansion  of  cross  sections 
IZM  number  of  material  zones 

IM  number  of  radial  intervals 

JM  number  of  axial  intervals 

-  5  — 

IGM  number  of  energy  groups 

IHT  position  of  total  cross  section  in  cross-section  table 
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IHS  position  of  self-scatter  cross  section  in  cross-section 
table 

IHM  cross-section  table  length  per  energy  group 
(usually  IHM  -  IHT  +  I6M) 

MS  cross-section  mixing  table  length 

10  — 

MCR  number  of  materials  read  from  cards 

MTP  number  of  materials  read  from  input  cross-section 

library  tape  (nuclide  or  GIP  format) 

MT  total  number  of  materials  (MCR+MTP+MIXTURES) 

IDATl  cross-section  storage  control  flag 

=  0  implies  store  cross  sections  in  core 

=  1  implies  store  cross  sections  on  tape 

=  2  implies  cross  sections  on  input  GIP  tape 

NOA  number  of  quadrature  points  in  azimuthal  spatial 
integration  for  ring  source 
(6*  and  7*  arrays  required  if  >  0) 

15  — 

IMODE  output  fluence  file  format  flag 
3/4  -  DOT  I I I/DOT  IV  format 
IPRTC  output  cross-section  print  control  flag 
0/1  ■  print  all  materials/none 
NFLSV  uncollided  fluence  moments  output  control  flag 

-  0  implies  no  effect  • 

>  0  implies  write  uncollided  fluence  moments  on  NFLSV 
NPSO  first  collision  source  output  control  flag 

=  0  implies  no  effect 

>  0  implies  write  first  collision  source  on  NPSO 
IPRTF  number  of  groups  of  uncollided  fluence  to  be  printed 

20  — 

IPRTS  number  of  groups  of  first  collision  source  to  be  printed 
IZ3  source  distribution  table  control  flag 
*  0  implies  no  effect 

>  0  implies  length  of  source  distribution  table 
IDFAC  density  factor  control  flag 

-  0  implies  no  effect 

>  0  implies  density  factors  specified  in  3*  array 
NBUF  number  of  k- bytes  of  core 

NTNPR  *  0  implies  no  effect 

>  0  implies  NTNPR  is  large  scale  print  output  unit 
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2*  Array 


Real  Control  Parameters 


XNF 


ZPT 

RPT 


<  0  implies  |XNF|  is  multiplication  factor 
«  0  implies  no  normalization 
>  0  implies  XNF  is  normalization  factor 


h-If  IZ3 


0 


<  0  implies  jXNF]  is  multiplication  factor 
=  0  implies  enter  different  f{»j) 
for  each  energy  group  in 
14*  array  of  INPUT  DATA  BLOCK  3 
>  0  implies  XNF  is  normalization  factor 


\~lf  IZ3  >  0 


axial  position  of  source  (cm) 
radial  position  of  source  (cm) 


T  (terminate  block  with  "T")  [T  always  required] 


INPUT  DATA  BLOCK  2 

13$  Array  -  Nuclide  ID  Numbers  on  Library  File  (MTP  entries 
required  only  if  IDATl  is  not  equal  to  2) 

14*  Array  -  Cross  Sections  for  Nuclide  1,  ANISN^  format,  all  groups 


[each  new  nuclide  must  start  on  a  new  card] 


-  Cross  Sections  for  Nuclide  MCR,  ANISN  format,  all  groups 
(IHM*IGM*MCR  entries  required) 

T  (terminate  block  with  "T")  [T  always  required] 

INPUT  DATA  BLOCK  3 

1*  Array  -  fission  spectrum  (IGM  entries) 

2*  Array  -  axial  interval  boundaries  (JM+1  entries) 

3*  Array  -  density  factors  by  interval  (IM*JM  entries  if  IDFAC>0) 

4*  Array  -  radial  interval  boundaries  (IM+1  entries) 

6*  Array  -  angular  quadrature  weights  for  azimuthal  spatial 
integration  (NOA  entries) 

7*  Array  -  discrete  values  of  integrand  for  azimuthal  spatial 
integration  (NOA  entries) 
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8$  Array  -  zone  numbers  by  interval  entries) 

9$  Array  -  material  numbers  by  zone  (IZM  entries) 
10$  Array  -  Material  Numbers  (MS  entries) 

11$  Array  -  Component  Numbers  (MS  entries) 

12*  Array  -  Density  Multipliers  (MS  entries) 


Mixing  Table 


13*  Array  -  direction  cosines,  ij,  for  source  input  (IZ3  entries) 
(input  negative  ij's  first) 

14*  Array  -  input  source  shape,  f(ij)  (IZ3  or  IZ3*IGM  entries 
depending  on  XNF) 

15*  Array  -  source  by  energy  group  (I6M  entries) 

T  (terminate  block  with  "T")  [T  always  required] 


3.3  GRTUNCL  INPUT  DATA  NOTES 

Except  for  the  title  card,  all  data  are  read  using  the  FIDO  input 
system.  A  detailed  description  of  the  FIDO  input  system  is  given  in 
Appendix  A.  Data  arrays  are  entered  in  blocks,  each  terminated  by  a 
"T".  Unused  data  arrays  (e.g.,  10$  if  MS=0)  are  not  entered,  but  a  "T" 
must  still  be  entered  to  signal  the  termination  of  each  block. 

1$  Array  The  definitions  of  many  of  the  parameters  in  this  array  are 
compatible  with  GIP  (Section  2.0)  and  DORT  (Section  4.0). 

ITH  This  flag  only  applies  to  the  cross  sections.  If  ITH=1,  the  source 
must  be  input  in  reverse  order  by  energy  group.  If  ITH=1,  two  major 
reordering  steps  are  carried  out  to  produce  an  adjoint  cross-section 
library: 

1.  The  inscatter  matrix  is  transposed,  i.e.,  the  table  position 
associated  with  group  g  describing  scattering  from  g'  to  g  is 
changed  to  describe  scattering  from  g  to  g'. 

2.  The  ordering  of  the  groups  is  reversed,  i.e,,  data  for  group 
IGM  appear  first  in  the  output  file,  followed  by  IGM-1,  etc. 

A  simple  three  group  example  is  illustrated  in  Section  3.3.1. 

ISCT  When  the  order  of  scatter  is  greater  than  zero,  GRTUNCL  expects 
the  P,  cross  section  to  be  material  M+1,  the  Pj  cross  section  to  be  M+2, 
etc.,  where  M  is  the  Pq  material  number: 
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Pq  Data,  Nuclide  1 
Pi 

P2 


PjscT  Data,  Nuclide  1 
Pg  Data,  Nuclide  2 

P^ 

P2 


PjscT  Data,  Nuclide  2 


For  components  other  than  Pg,  cross  section  positions  other  than 
positions  IHT+1  through  IHM  may  be  zero. 

IZM  The  number  of  material  zones  specified  In  GRTUNCL  should  corresponJ 
to  the  number  of  material  zones  specified  In  DORT.  This  is  not  a 
requirement,  however,  because  in  DORT  the  user  has  the  option  of 
specifying  the  convergence  by  zone  and  consequently  may  have  more  zones 
defined  than  are  required  In  GRTUNCL.  It  Is  generally  useful  to  set  the 
number  of  material  zones  according  to  the  DORT  requirements  and  utilize 
the  same  Input  for  GRTUNCL. 

IM,  JH  The  number  of  radial  (IM)  and  axial  (JM)  intervals  must 
correspond  to  the  number  of  Intervals  utilized  In  DORT.  Since  GRTUNCL 
calculates  the  uncollided  fluence  and  first  collision  source  by 
interval,  the  number  of  intervals  and  interval  boundaries  must 
correspond  to  the  DORT  intervals.  In  setting  up  the  interval 
boundaries,  the  position  of  the  source  (both  axially  and  radially)  must 
be  considered  so  that  the  fluence  does  not  differ  by  more  than  a  factor 
of  two  between  adjacent  intervals.  It  should  be  noted  that  the  interval 
next  to  the  source  interval  will  always  exhibit  greater  than  a  factor  of 
two  difference  in  the  fluence.  A  good  rule  of  thumb  for  an  air-over¬ 
ground  calculation  is  to  assume  an  initial  "source"  interval  size  and 
apply  a  factor  of  1.3  to  that  interval  size  to  determine  the  interval 
boundaries.  For  example,  assume  the  source  is  positioned  at  r=0.0  and 
the  source  interval  is  10-cm  wide.  The  radial  interval  boundaries  will 
be  0.0,  10.0,  13.0  (10.0  x  1.3),  17.0  (13.0  x  1.3),  22.0  (17.0  x  1.3), 
29.0  (22.0  X  1.3),  etc.,  until  the  Interval  size  reaches  some 
predetermined  maximum  size,  such  as  25  meters  for  air.  A  similar 
sequence  could  be  used  for  axial  interval  boundaries. 

NOTE;  GRTUNCL  cannot  handle  a  variable  mesh.  Therefore,  in 
modeling  the  air-over-ground  problem,  ignore  the  DORT 
variable  mesh  option. 
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IHT,  IHS,  IHM  The  discussion  of  these  input  parameters  is  given  in 
Section  3.4.2. 

MCR,  MTP,  HT  6RTUNCL  assigns  storage  space  (IHM*IGM  words/set)  for  MT 
sets  of  cross  sections,  called  "materials."  The  first  MCR  spaces  are 
filled  with  data  read  from  cards  in  the  14*  array  in  INPUT  DATA  BLOCK  2. 
The  next  MTP  material  spaces  are  filled  with  nuclide  data  read  from  the 
data  set  mounted  on  the  input  library  logical  unit  (default=4)  and 
stored  in  the  order  indicated  by  the  13$  array.  The  remaining  spaces 
between  MCR+MTP  and  MT  are  available  for  preparing  mixtures. 

NOTE:  If  MCR=0,  and  IDAT1=2,  the  13$  and  14*  arrays  in  INPUT  DATA 
BLOCK  2  and  corresponding  data  block  terminator  are  not 
required.  This  corresponds  to  pre-mixing  the  material 
cross  sections  in  GIP  and  is  the  recommended  method  of 
supplying  cross-section  data  to  GRTUNCL. 

IDATl  This  parameter  controls  the  cross-section  data  storage.  If 
IDAT1=0,  MCR  materials  are  read  in  from  cards,  MTP  materials  are  read  in 
from  an  ANISN  formatted  library  on  logical  unit  4,  and  MT  materials  are 
stored  in  core.  If  IDAT1=1,  MCR  cross  sections  are  read  in  from  cards, 
MTP  materials  are  read  in  from  an  ANISN  formatted  library  on  logical 
unit  4,  and  MCR+MTP  materials  are  stored  on  logical  unit  one  prior  to 
mixing.  MT  materials  (GIP  formatted)  are  then  stored  on  logical  unit 
two  after  mixing.  If  IDAT1*2,  MTP  materials  are  read  in  from  a  GIP 
formatted  library  on  logical  unit  four  and  stored  on  logical  unit  two. 
IDAT1=2  is  the  recommended  option  for  cross-section  storage 

NOA  This  parameter  can  be  zero  for  on-centerline  sources.  Further 
discussion  is  given  in  the  data  notes  for  the  6*  and  7*  arrays. 

IMODE  This  parameter  identifies  two  possible  output  fluence  file 
formats.  Only  the  DOT  IV  format  is  discussed  since  it  is  used  in 
present  day  applications.  The  DOT  III  format  was  retained  from  earlier 
versions  of  GRTUNCL,  and  although  still  operational,  should  be  avoided, 
unless  DOT  III  will  be  used  in  the  final  calculations. 

IPRTC  If  IPRTC=0,  printed  cross-section  edits  for  all  materials  will  be 
output.  It  is  reconroended  this  parameter  be  set  to  one  to  avoid  a  large 
amount  of  output. 

NFLSV  If  NFLSV  is  greater  than  zero,  the  uncollided  fluence  moment  data 
are  written  on  NFLSV.  If  IMODE  =  4,  the  output  is  written  in  the  VARSOR 
format,  (see  Section  3.5)  which  is  suitable  for  use  with  DORT. 

NPSO  If  NPSO'is  greater  than  ijro,  the  first  collision  source  data  are 
written  on  NPSO.  If  IM0DE=4,  the  output  is  written  in  the  VARSOR 
format,  (see  Section  3.5)  which  is  suitable  for  use  as  DORT  input.  If 
NPSO  equals  zero,  the  input  parameters  IPRTF  and  IPRTS  are  ignored. 
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IPRTF  If  IPRTF  is  greater  than  zero,  IPRTF  groups  of  uncollided  fluence 
edits  will  be  output.  For  a  large  number  of  intervals  it  is 

recommended  this  parameter  be  set  to  a  small  number  (less  than  five). 
Analyzing  the  first  non-zero  group  of  the  uncollided  fluence  will 
indicate  the  adequacy  of  the  interval  boundaries  in  the  spatial  mesh. 

IPRTS  If  IPRTS  is  greater  than  zero,  IPRTS  groups  of  first  collision 
source  edits  will  be  output.  It  is  recommended  this  parameter  be  set  to 
zero  because  it  generates  a  large  volume  of  output. 

IZ3  This  parameter  controls  the  number  of  direction  cosines,  rj,  used  to 
describe  the  source  input  in  the  13*  array  and  the  number  of  points  used 
to  describe  the  source  shape,  f{i7),  input  in  the  14*  array.  If  IZ3=0, 
only  an  energy  dependent  source  distribution  is  entered  in  the  15* 
array,  and  the  13*  and  14*  arrays  are  omitted. 

NBUF  This  parameter  times  1000  is  the  initial  memory  objective  of 
6RTUNCL  on  the  CRAY.  GRTUNCL  divides  the  calculation  into  blocks  where 
the  number  of  blocks  ranges  from  one  to  JM  depending  on  how  much  memory 
has  been  allocated.  A  smaller  number  of  blocks  requires  more  memory. 
Consequently,  a  trade  off  between  memory  and  I/O  requirements  results 
from  the  choice  for  NBUF.  The  minimum  memory  requirements  (for  JM 
blocks)  will  appear  on  the  printed  edits. 

XNF  This  parameter  is  typically  used  as  a  normalization  factor.  For 
example,  if  the  source  distribution  is  per  source  particle,  XNF  can  be 
used  to  obtain  the  absolute  normalization  if  the  total  number  of  source 
particles  is  entered  here.  The  meaning  of  the  value  of  XNF  is  dependent 
on  the  parameter  IZ3  and  impacts  additional  input  to  GRTUNCL. 

ZPT  and  RPT  If  RPT=0,  the  source  will  be  a  point  source  located  axially 
at  ZPT.  If  RPT>0,  the  source  will  be  a  ring  source  located  axially  at 
ZPT. 

13$  Array  A  negative  entry  in  the  13$  array  replaces  the  following  ISCT 
entries  with  successive  ID's.  Thus: 


13$  13$ 

-101  101 

-101  is  equivalent  to  102 

-101  103 


14*  Array  The  input  of  the  14*  array  is  performed  by  subroutines  which 
have  certain  restrictions  in  addition  to  those  of  normal  FIDO  input: 

a.  The  nuclide  spaces  are  preset  to  0.0,  so  that  "E"  or  "FO" 
will  have  the  effect  of  filling  the  remaining  space  with  0.0, 
but  "E"  and  "F"  must  not  be  used  in  the  input  for  the  last 
nucl ide. 
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b.  The  14*  or  14**  designation  may  precede  each  nuclide  block, 
but  is  not  required  except  in  the  first  block. 

c.  Entries,  including  operators  such  as  "T”,  following  the 
last  data  item  for  nuclides  other  than  the  last,  and  on  the 
same  card  as  the  last  item,  will  be  ignored. 

d.  The  "T"  which  terminates  this  block  must  appear  alone  in 
column  3  of  a  separate  card. 


7*  Array  The  integration  limits  are  assumed  to  be  from  -1  to  1  so 

is  assumed  to  be  2f(X,-)W,-  where  the  W/s  are  entered  in  the  6* 
array  and  the  X/s  are  entered  in  the  7*  array. 

8$  Array  The  material  zone  numbers  by  interval  are  entered  by  IM 
entries  by  JM  entries.  For  example,  the  material  zone  numbers  are 
entered  for  the  first  axial  interval,  then  the  second  axial  interval, 
etc. 

9$  Array  Negative  numbers  entered  in  this  array  indicates  an 
anisotropic  material  and  ISCT  higher  order  moments  must  follow 
immediately  on  the  cross-section  unit.  For  example  if  a  -1  and  -7  are 
entered  in  this  array  for  the  first  two  material  zones,  and  ISCT=5, 
GRTUNCL  will  expect  to  read  the  through  P5  components  of  the  first 
material  then  the  Pq  through  P5  components  of  the  second  material  on  the 
cross-section  unit. 

10$,  11$,  and  12*  Arrays  The  cross  section  mixing  table  is  used  to 
combine  elements  into  macroscopic  mixtures.  Experience  will  reveal  that 
only  the  imagination  limits  its  flexibility.  As  with  DORT,  the  integers 
in  the  mixing  table  refer  to  a  continuous  array  of  MT  cross  section  sets 
of  which  the  first  MCR+MTP  are  nuclide  data  read  from  card-image  input 
and  a  library  file,  respectively.  All  of  the  sets  beyond  MCR+MTP  are 
preset  to  zero  before  the  mixing  table  is  executed.  In  non-search 
problems  where  cross-section  storage  is  difficult,  i.e.,  large  problems 
that  do  not  involve  material  buckling  or  concentration  searches, 
material  spaces  originally  used  for  input  nuclides  can  be  reused  for 
mixtures.  While  the  general  rules  for  creating  mixtures  are  equally 
applicable  for  GIP,  GRTUNCL,  and  DORT,  it  should  be  noted  that  reference 
to  eigenvalue  modification  in  the  DORT  mixing  ti.ble  description  has  no 
application  to  GRTUNCL  mixing.  The  interpretation  rules  applicable  to 
GRTUNCL  are  as  follows: 


a.  If  the  mixture  number  is  N  and  the  component  number  is  0,  then 
the  cross  sections  in  mixture  N  will  be  multiplied  by  the 
number  entered  in  the  density  column: 


<^M1XTURE  N(NEU)  “  <^MIXTURE  H(OLO)  *  DENSITY 
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b.  If  the  mixture  number  is  N  and  the  component  number  is  M,  then 
the  cross  sections  in  component  M,  multiplied  by  the  density, 
wi11  be  added  to  the  cross  sections  in  mixture  N: 

<^MIXTURE  N{I(EW>  “  ‘^MIXTURE  MCOLD)  ‘^COMPONENT  M  *  DENSITY 

Note:  Either  a  mixture  or  a  component  may  be  made  up  of 

microscopic  or  macroscopic  cross  sections  for  a  single 
isotope  or  mixture  of  isotopes. 

A  sample  mixing  table  showing  the  various  options  is  given  below. 


MIXTURE 
(10$  ARRAY) 


6 

6 

7 

7 

7 


COMPONENT 
(11$  ARRAY) 


1 

3 
2 

4 
0 


DENSITY 
(12*  ARRAY) 


0.4 

0.5 

0.4 

0.5 

3.0 


The  mixture  table  given  above  would  do  the  following: 

(1)  Add  components  1  and  3  with  densities  0.4  and  0.5, 
respectively,  to  form  mixture  6: 

*  0.4  +  (73  *  0.5 

(2)  Add  components  2  and  4  with  densities  0.4  and  0.5, 
respectively,  to  form  mixture  7: 


Oj  -  (72  * 

0.4  +  (74 

*  0.5 

(3) 

Multiply 

mixture 

7  by  3.0:  (77  =  07  *  3.0 

10$  Array 

If  the  ] 

10$  entry 

is  tagged  with  a  negative,  the  next  ISCT 

components  will  be 

treated 

as  Pl  components.  For  example: 

10$ 

11$ 

12* 

(with  ISCT  *  3) 

-13 

1 

1.0 

will  be  equivalent 

to 

10$ 

11$ 

12* 

(with  ISCT  =  0) 

13 

1 

1.0 

14 

2 

1.0 

15 

3 

1.0 

16 

4 

1.0 
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13*,  14*,  and  15*  Arrays  These  arrays  control  the  source  description  in 
GRTUNCL.  If  IZ3-0,  the  source  is  entered  only  as  a  function  of  energy 
in  the  15*  array  and  the  13*  and  14*  arrays  are  omitted.  This  would  be 
indicative  of  an  isotropically  emitted  source  spectrum.  If  IZ3>0,  then 
the  direction  cosines,  i?,  of  the  source  are  entered  in  the  13*  array 
(IZ3  entries  with  negative  ij's  entered  first),  and  the  source  shape  f{»7) 
is  entered  in  the  14*  array  (IZ3  or  IZ3*IGM  entries  depending  on  the 
value  of  XNF),  and  the  energy  dependence  is  entered  in  the  15*  array 
(IGM  entries).  The  units  of  the  entries  in  the  14*  array  are 
particles/unit  weight,  i.e.,  4ir*particles/steradian.  Typically,  if 
IZ3>0  and  XNF=0,  the  13*  array  would  contain  IZ3  entries,  the  14*  array 
would  contain  IZ3*IGM  entries,  and  the  15*  array  would  be  filled  with 
IGM  ones. 


3.3.1  Adjoint  Reordering  Example 

A  three-group  example  showing  the  relationship  between  a  forward  and 
adjoint  cross-section  set  is  shown  below.  In  this  example,  there  is  no 
upscatter,  one  activation  cross  section,  IHT  =  4,  IMS  =  5,  and  IHM  =  7. 


Direct 

Adjoint 

o'(l) 

a^3) 

^(1) 

<(3) 

xa  (1) 

ua^iZ) 

<;'(!) 

aM3) 

ff(l-l) 

(7(3^3) 

0 

0 

0 

0 

oHZ) 

<(2) 

*7^(2) 

w  (2) 

t'oHZ) 

o'(2) 

o\Z) 

0(2-2) 

o[Z^Z) 

0(1-2) 

a(2-3) 

0 

0 

o'(3) 

«7'(1) 

o*(3) 

<7^(1) 

00^(3) 

i/a  (1) 

o’(3) 

«7'(1) 

0(3-3) 

(7(1-1) 

0(2-3) 

<7(1-2) 

o(l-3) 

a(l-3) 
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3.4  INPUT  LIBRARY  FORMAT 


GRTUNCL  Inputs  two  different  types  of  cross  section  files  depending  on 
the  value  of  IDATl.  If  IDAT1=0  or  1,  the  ACLl^  prepared  input  library 
format  is  expected.  If  IDAT1=2,  the  GIP  formatted  library  format  (see 
Section  3.4.3)  is  expected. 


3.4.1  ACLl  Formatted  Cross-section  Input  File 

If  IDAT1=0  or  1,  the  ACLl  prepared  input  library  format  from  which  MTP 
nuclides  are  taken  is  defined  in  the  following  manner: 


ALC  Cross  Section  Library  Format 


Q'kitic'kitific'kicirieicie'k'kicicieifificieiticieieicific'kitititic’k'kitic'k'kieiciticicicicicicie'k'kie'k'k'k'k'kisic’k’kicic-kic 

C  PROPOSED  19  MAY  80 

C 

CF 
CE 
C 

Qlcieitielelciciciicitii^'kititicitieieie'kitieitif'kiticic’k'itltltit'k’k'k’kleit'k'kicieiclcie'k'k’kicieiciclticieic'k'k'kic'kicit'k 


ALC 

TRANSPORT  CODE  CROSS  SECTION  DATA 


C 

CD 

CD 

C 

CD 

C 

C- 

CS 

C 

CS 

CS 

CS 

CS 

CS 

CS 

C 

CS 

C 

c- 

c 

c 

c- 

CR 

C 

CL 

C 

CW 

C 


THE  TERMINATION  RECORD  DEFINES  THE  LENGTH  OF  THE 
DATA  SET  AND  THE  NUMBER  OF  NUCLIDES 

THE  ID  VALUES  MUST  BE  IN  ASCENDING  ORDER 


FILE  STRUCTURE 

RECORD  TYPE  PRESENT  IF 


**************** (REPEAT  FOR  ALL  NUCLIDES) 

*  CONTRAL  DATA  FOA  A  NUCLIDE  ALWAYS 

*  CROSS  SECTION  DATA  FOR  A  NUCLIDE  ALWAYS 

**************** 

TERMINATION  ALWAYS 


CONTROL  DATA  FOR  A  NUCLIDE 
NOG,NCTL,NCC,NCID,(NAME(I),I=l,12) 
16=NUMBER  OF  WORDS 
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CD  NOG 

CD  NCTL 

CD  NCC 

CD 

CD  NCID 

CD  NAME 

C 

C . 

c 
c 

C . 

CR  CROSS  SECTIONS  FOR  A  NUCLIDE 

C 

CL  ( (CRX( IH, IG) , IH=1 ,NCTL) , IG=1 ,NOG) 

C 

CW  NCTL*NOG=NUMBER  OF  WORDS 

C 

CD  CRX  CROSS  SECTION  DATA  ORDERED 

CD  AS  PER  SECTION  2.4.1 

CD  NCTL  AS  SPECIFIED  BY  PREVIOUS  RECORD 

CD  NOG  AS  SPECIFIED  BY  PREVIOUS  RECORD 

C 

C . 

c 

c 

C . 

CR  TERMINATION 

C 

CL  NOG,NCTL,NCC,NCID,{NAME{I),I=l,12) 

C 

CW  16-NUMBER  OF  WORDS 

C 

CD  NCC  7,  ALWAYS 

CD  OTHER  ITEMS  ARBITRARY 

C 

C . 


3.4.2  ANISN  Nuclide  Format  Cross-section  File 

In  a  normal  GRTUNCL  problem,  cross  sections  are  read  from  card  input 
and/or  from  an  external  data  set  in  nuclide-organized  format,  i.e.,  all 
the  cross  sections  for  one  group  of  one  nuclide,  followed  by  other 
groups  for  that  nuclide,  and  finally  followed  by  data  for  other 
nuclides.  Within  a  group,  GRTUNCL  expects  the  ordering  of  data  in  the 
cross  section  table  in  the  following  format: 


NUMBER  OF  ENERGY  GROUPS  FOR  THIS  SET 
LENGTH  OF  CROSS  SECTION  TABLE  FOR  THIS  SET 
-0  SET  WAS  ADDED  TO  LIBRARY 
-2  SET  REPLACED  AND  EXISTING  SET 
IDENTIFICATION  NUMBER 
ARBITRARY  DESCRIPTION,  A4  FORMAT 
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Table  Position  Entry 


Cross  Section  Type 


1 

<>'(9) 

First  activation  cross  section 
(if  any) 

IHT-3 

Last  activation  cross  section 
(if  any) 

IHT-2 

c7*(g) 

Absorption 

IHT-1 

va^{q) 

Neutron  Production 

IHT 

Total  removal 

IHT+1 

Total  upscatter  cross  section  from 
group  g  (omit  this  entry  if  NUS=0) 

IHS-NUS 

cr  (g+NUS-*g) 

Scattering  from  group  g+NUS  to  g 

IHS-1 

a(g+l^g) 

Scattering  from  group  g+1  to  g 

IHS 

p(g^g) 

Scattering  from  group  g  to  g 

IHS+1 

a(g-l-g) 

Scattering  from  group  g-1  to  g 

IHM 

(7(g-NDS-g) 

Scattering  from  group  g-NDS  '"o  g 

From  this,  it  can  be  seen  that: 

NUS  =  IHS-IHT-2  =  number  of  upscatter  groups,  if  greater  than  0, 
NDS  =  IHM-IHS  =  number  of  dovmscatter  groups, 

L  =  IHT-3  =  number  of  activation  cross  sections. 

Special  illustrations  of  interest  are: 
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IHM  =  IGM  +  3 
IHS  =  4 
IHT  =  3 


—  Full  downscatter;  no  upscatter; 
no  activation  cross  section 


and, 


IHM  =  IGM  +  5  +  NUS 
IHS  =  6  +  NUS 
IHT  =  4 


Full  downscatter;  NUS  upscatter; 
—  room  for  an  activation  cross 
section  in  position  1. 


Thus  the  parameters  IHT,  IHS,  and  IHM  completely  describe  the  format  of 
the  cross  sections.  If  there  are  no  activity  cross  sections,  IHT=3.  If 
there  is  no  upscatter  IHS  =  IHT  +1.  If  there  is  no  downscatter  IHM  = 
IHS  (i.e.,  a  one  group  problem).  If  there  is  upscatter,  GRTUNCL  will 
compute  a  total  upscatter  cross  section  for  each  group  of  each  material 
and  place  that  cross  section  in  position  IHT  +  1.  The  activity  cross 
sections  are  only  used  for  activity  calculations  and  not  used  in  the 
transport  process  itself. 


3.4.3  GIF  Formatted  Cross-section  Input  File 

If  IDAT1=2.  GRTUNCL  expects  to  read  a  GIP  formatted  library  on  logical 
unit  four.  Also,  if  IDAT1=0  or  1,  GRTUNCL  will  create  a  GIP  formatted 
cross-section  file.  The  GIP  input  file  is  group-ordered  for  transport 
codes  and  this  format  is  compatible  with  both  ANISN,  GRTUNCL,  and  DORT 
requirements.  The  groups  are  normally  ordered  from  high  to  low  neutron 
energy,  then  from  high  to  low  photon  energy,  if  any  photon  groups  are 
present. 


C- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C- 


GIP  Cross  Section  Library  Format 

PRINCIPAL  CROSS  SECTION  DESCRIPTION 
(PCSD(IH),IH=I,IHT) 

NUMBER  OF  WORDS  =  MULT*IHT 

PCSD(IH)  PRINCIPAL  CROSS  SECTION  LABELS  -  (A6) 
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c- 

c 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C- 


NUCLIDE  IDENTIFICATION 
(NUC(MT),MT=1,MTM) 

NUMBER  OF  WORDS  =  MULT*MTM 
NUC(MT)  NUCLIDE  LABELS  -  (A6) 


C- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

C 

C- 


CROSS  SECTION  DATA 
{(SIG(IH,MT),IH=1,IHP),MT=1,MTM) 
NUMBER  OF  WORDS  =  IHP*MTM 


SIG{IH,MT) 

1  TO  IHT-5 
IHT-4 
IHT-3 
IHT-2 
IHT-1 
IHT-0 
IHT+1 


CROSS  SECTION  DATA  BY  TABLE  POSITION, 

THEN  BY  NUCLIDE.  TABLE  POSITIONS  CONTAIN: 
ARBITRARY  DATA,  SPECIFIED  BY  USER,  OR  ABSENT 
FISSION  YIELD  FRACTION  (RECOMMENDED) 

FISSION  CROSS  SECTION  (RECOMMENDED) 
ABSORPTION  CROSS  SECTION 
NEUTRON  PRODUCTION  CROSS  SECTION 
TOTAL  CROSS  SECTION 

UPSCATTER  FROM  GROUP  IG+(IHS-1-IHT)  TO  IG 


IHS-1  UPSCATTER  FROM  GROUP  IG+1  TO  IG 
IHS  SELF  SCATTER  FOR  GROUP  IG 
IHT+1  DOWNSCATTER  FROM  GROUP  IG-1  TO  IG 


IHM  DOWNSCATTER  FROM  GROUP  IG+IHS-IHM  TO  IG 
IHM+1  TOTAL  SCATTER  FROM  GROUP  G  TO  ALL  GROUPS 

(PRESENT  ONLY  IF  IHS  IS  GREATER  THAN  IHT+1) 

IHS  MAY  BE  IHT+1  IF  UPSCATTER  IS  ABSENT. 
TRANSFERS  FROM  GROUPS  LESS  THAN  1  OR  GREATER 
THAN  IGM  ARE  ZERO.  POSITIONS  LESS  THAN  OR 
EQUAL  TO  IHT  ARE  ZERO  FOR  PL  COMPONENTS 
OTHER  THAN  THE  OTH. 

EACH  COMPONENT  OF  A  PL  SET  IS  TREATED  AS  A 
SEPERATE  NUCLIDE  THUS,  M  SETS  WOULD 
COMPRISE  M*NQUAD+M  NUCLIDES 
IHP  EQUALS  IHM  UNLESS  IHS. GT. IHT+1 ,  THEN  IHM+1 
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3.5  GRTUNCL  OUTPUT  FILE 

GRTUNCL  can  output  either  a  DOT  III  or  DOT  IV  formatted  file  depending 
on  the  value  of  IMODE.  Current  applications  only  use  the  DOT  IV  format 
-  referred  to  as  the  VARSOR  format  in  this  document.  Both  the  first 
collision  source  and  uncollided  fluence  moment  data  are  written  in  this 
format.  The  VARSOR  format  is  defined  in  the  following  manner: 

C  -VSOROOlO 

C  VS0R0020 

C  REVISED  10  NOV  76  -VS0R0040 

C  -VSOR0050 

CF  VARSOR  -VSOR0060 

CE  VARIABLE  MESH  SOURCE  MOMENT  DATA  -VS0R0070 

C  -VSOR0080 

Q****************************<r**********************************ygQf^QQgQ 

C  VSOROlOO 

CD  ORDER  OF  GROUPS  IS  BY  DECREASING  ENERGY  VSOROllO 

CD  I  IS  THE  FIRST-DIMENSION  INDEX  VSOR0120 

CD  J  IS  THE  SECOND-DIMENSION  INDEX  VSOR0130 

CD  JM=1  FOR  1 -DIMENSIONAL  GEOMETRY  VSOR0140 

CD  IF  ISOP.GT.O,  SOURCE  IS  FIRST-COLLISION  TYPE  VSOR0150 

C  VS0R0160 

C . VSOR0170 

CS  FILE  STRUCTURE  -VSOR0180 

CS  -VSOR0190 

CS  RECORD  TYPE  PRESENT  IF  -VS0R0200 

CS  . VS0R0210 

CS  FILE  IDENTIFICATION  ALWAYS  -VS0R0220 

CS  FILE  LABEL  ALWAYS  -VSOR0230 

CS  FILE  CONTROL  ALWAYS  -VS0R0240 

CS  FILE  INTEGER  PARAMETERS  ALWAYS  -VSOR0250 

CS  -VS0R0260 

CS  ************** (REPEAT  OVER  ALL  GROUPS)  -VSOR0270 

CS  *  SOURCE  MOMENTS  ALWAYS  -VSOR0280 

CS  ****************  -VS0R0290 

C  -VSOR0300 

CS  ************** (REPEAT  OVER  ALL  GROUPS)  -VS0R0310 

CS  *  SCALAR  UNCOLLIDED  FLUX  ISOP.GT.O  -VSOR0320 

CS  ****************  -VSOR0330 

C  -VSOR0340 

C . VSOR0350 

C  VSOR0360 

C  VSOR0370 

C--- . . . . . VS0R0380 

CR  FILE  IDENTIFICATION  -VSOR0390 

C  -VSOR0400 

CL  HNAME,(HUSE(I),I=1,2),IVERS  -VS0R0410 

C  -VS0R0420 

CW  1+3*MULT=NUMBER  OF  WORDS  -VSOR0430 

C  -VS0R0440 
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CD  HNAME  HOLLERITH  FILE  NAME  -  VARSOR  -  (A6)  -VS0R0450 

CD  HUSE{I)  HOLLERITH  USER  IDENTIFICATION  -  (A6)  -VS0R0460 

CD  IVERS  FILE  VERSION  NUMBER  -VSOR0470 

CD  MULT  DOUBLE  PRECISION  PARAMETER  -VS0R0480 

CD  1-  A6  WORD  IS  SINGLE  WORD  -VSOR0490 

CD  2-  A6  WORD  IS  DOUBLE  PRECISION  WORD  -VSOR0500 

C  -VSOR0510 

C . VSOR0520 

C  VSORO530 

C  VSOR0540 

C . ---VSOR5550 

C  -VSOR0560 

CR  FILE  LABEL  -VSOR0570 

C  -VSOR0580 

CL  DATE, USER, CHARGE, CASE, TIME, (TITL{I), 1=1, 12)  -VSOR0590 

C  -VS0R0600 

CW  17*MULT=NUMBER  OF  WORDS  -VS0R0610 

C  -VS0R0620 

CD  DATE  AS  PROVIDED  BY  TIMER  OPTION  4  -  (A6)  -VS0R0630 

CD  USER  AS  PROVIDED  BY  TIMER  OPTION  5  -  (A6)  -VSOR0640 

CD  CHARGE  AS  PROVIDED  BY  TIMER  OPTION  6  -  (A6)  -VSOR0650 

CD  CASE  AS  PROVIDED  BY  TIMER  OPTION  7  -  (A6)  -VS0R0660 

CD  TIME  AS  PROVIDED  BY  TIMER  OPTION  8  -  (A6)  -VSOR0670 

CD  TITL(I)  TITLE  PROVIDED  BY  USER  -  (A6)  -VSOR0680 

C  -VS0R0690 

C . VS0R0700 

C  VS0R0710 

C  VSOR0720 

C . VS0R0730 

CR  FILE  CONTROL  VS0R0740 

C  -VSOR0750 

CD  IGM,NEUT, JM, LM, IMA,MMA, ISM, IMSISM, ISOP, ( IDUM(N) ,N=1 , 16)  -VS0R0760 

C  -VSOR0770 

CW  25=NUMBER  OF  WORDS  -VSOR0780 

C  -VSOR0790 

CD  IGM  NUMBER  OF  ENERGY  GROUPS  -VSOR0800 

CD  NEUT  LAST  NEUTRON  GROUP  -VS0R0810 

CD  (IGM  IF  ALL  NEUTRONS,  0  IF  ALL  GAMMA)  -VS0R0820 

CD  JM  NUMBER  OF  SECOND- DIMENS ION  (J)  INTERVALS  -VSOR0830 

CD  LM  MAXIMUM  LENGTH  OF  MOMENT  EXPANSION  -VSOR0840 

CD  IMA  MAXIMUM  NUMBER  OF  FIRST-DIMENSION  INTERVALS  -VSOR0850 

CD  MMA  NUMBER  OF  BOUNDARY  DIRECTIONS  -VS0R0860 

CD  ISM  NUMBER  OF  I -BOUNDARY  SETS  -VSOR0870 

CD  IMSISM  TOTAL  NUMBER  OF  I-INTERVALS,  ALL  I-SETS  -VSOR0880 

CD  ISOP  UNCOLLIDED  FLUX  FLAG  -VSOR0890 

CD  0  -  NO  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VSOR0900 

CD  1  -  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VS0R0910 

CD  IOUM{I)  ARRAY  SET  TO  0  -VS0R0920 

C  -VSOR0930 

C . VS0R0940 

C  VSOR0950 
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C  VSOR0960 

C . - . . . VSOR0970 

CR  FILE  INTEGER  PARAMETERS  -VS0R0980 

C  -VS0R0990 

CL  (LMBIG{IG),IG=1,IGM),  -VSORIOOO 

CL  *{IMBIS(IS),IS=1,ISM),{ISET{J),J=1,JM)  -VSORlOlO 

C  -VSOR102O 

CW  IGM+ISM+JM=NUMBER  OF  WORDS  -VS0R1030 

C  -VSOR1040 

CD  LMBIG(IG)  LENGTH  OF  MOMENT  EXPANSION  FOR  GROUP  IG  -VSOR1050 

CD  IMBIS(IS)  NUMBER  OF  INTERVALS  IN  ISET  IS  -VSOR1060 

CD  ISET{J)  I -SET  ASSIGNED  TO  INTERVAL  J  -VSOR1070 

C  -VSOR1080 

C . — . - . VSOR1090 

C  VSORllOO 

C  VSORlllO 

C . - . VSOR1120 

CR  SOURCE  MOMENTS  VSOR1130 

C  -VS0R1140 

CL  ((S0RM(I,L),I=1,IMS),L=1,LMS)  -VSOR1150 

C  -VS0R1160 

CW  IMS*LMS=NUMBER  OF  WORDS  -VS0R1170 

C  -VS0R1180 

C  DO  1  J=1,JM  -VS0R1190 

C  1  READ(N)  *LIST  AS  ABOVE*  -VSOR1200 

C  -VSOR1210 

CD  SORM  SOURCE  BY  INTERVAL  AND  MOMENT  INDEX  -VS0R1220 

CD  IMS  IMBIS(IS)  FOR  IS  CORRESPONDING  TO  J  -VSOR1230 

CD  LMS  LMBIG(IG)  -VS0R1240 

C  -VS0R1250 

C . VS0R1260 

C  VSOR1270 

C  VS0R1280 

C . VSOR1290 

CR  SCALAR  UNCOLLIDED  FLUX  -VS0R1300 

C  -VS0R1310 

CL  (FLUM(1),I=1,IMS)  -VS0R1320 

C  -VS0R1330 

CW  IMS=NUMBER  OF  WORDS  -VSOR1340 

C  -VSOR1350 

C  DO  1  J=1,JM  -VSOR1360 

C  1  READ(N)  *LIST  AS  ABOVE*  -VS0R1370 

C  -VSOR1380 

CD  FLUX  UNCOLLIDED  FLUX  BY  INTERVAL  -VSOR1390 

C  -VS0R1400 

C-- . VSOR1410 

C  VSOR1420 

C  VSOR1430 

C  VS0R1440 

C  ^SOR1450 

C  END  VS0R1460 
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3.6  LOGICAL  UNIT  REQUIREMENTS 


Below  is  a  listing  of  the  files  required  to  execute  a  GRTUNCL  case  along 
with  the  default  values  used  in  the  code.  In  setting  up  a  GRTUNCL  case, 
efforts  must  be  made  for  these  units  to  be  available. 


1. 

Logical 

Unit 

1 

2. 

Logical 

Unit 

2 

3. 

Logical 

Unit 

4 

5. 

Logical 

Unit 

NPSO 

6. 

Logical 

Unit 

NFLSV 

7. 

Logical 

Unit 

NTNPR 

8. 

Logical 

Unit 

91 

9. 

Logical 

Unit 

92 

10. 

Logical 

Unit 

6 

11. 

Logical 

Unit 

5 

SCRATCH,  (holds  group  independent  cross 
sections  from  input  if  logical  unit  4  is 
not  a  group- independent  (GIP)  tape 
SCRATCH,  (holds  GIP  cross  sections  after 
mixing) 

ANISN/GIP  formatted  Cross-section  Library 
Input  depending  on  value  for  IDATl 
(required  if  MTP>0) 

First  Collision  Source  Output 

Uncollided  Flux  Moments  Output 

Large  Scale  Print  Output 

SCRATCH 

SCRATCH 

Printed  Output 

Card  Input 


3.7  PROGRAMMER  INFORMATION 


3.7.1  Inter-machine  Adaptability 

The  GRTUNCL  code  is  intended  to  be  easily  adaptable  to  any  type  of 
sophisticated  computer,  and  yet  to  take  advantage  of  certain  localized 
structural  features  which  may  be  machine-dependent. 

In  general,  the  guidelines  of  ANS-STD. 3-1971*  are  followed.  This 
requires  general  adherence  to  a  simple,  standard  FORTRAN  language  except 
where  deviations  provide  important  improvements  in  capability  and  can  be 
docun. ;nted.  In  addition,  machine-dependent  features  have  been  kept 
local  zed  and  have  not  been  included  in  the  subroutines  which  perform 
actual  computation. 

The  r  commended  procedures  of  the  Cormnittee  on  Computer  Code 
Coord. nation  (CCCC)^*^  have  been  followed  where  practical.  Compliance 
with  these  standards  has  been  incomplete  where  cost  was  prohibitive,  the 
nature  of  the  codes  did  not  allow  it,  or  the  expected  level  of 
performance  could  not  be  obtained  in  that  fashion. 

Where  minor  or  certain  machine-dependent  features  are  required, 
alternative  features  are  enclosed  in  pairs  of  3-character  "language 
flags."  The  alternative  statements  remain  in  the  source  program,  with 
inappropriate  sections  transformed  into  comment  statements.  If  the  code 
is  set  up  for  IBM  operation,  for  example,  it  might  contain: 
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CIB 

CIB 

CDC 

ENTRY 

IBCDC(H,E,L,P) 

C 

CDC 

ENTRY 

IBCDC 

The  corresponding  CDC  configuration  would  be: 


CIB 

C  ENTRY  IBCDC(H,E,L,P) 

CIB 

CDC 

ENTRY  IBCDC 
CDC 


All  versions  of  a  given  procedure  are  thus  available  for  inspection  by 
all  users.  The  selection  of  options  is  made  by  a  computer  program  at 
distribution  time.  A  listing  of  machine-dependent  sections  can  also  be 
prepared  in  that  process. 

The  language  flags  achieve  the  major  objective  of  having  a  single, 
unified  source  for  each  program  which  is  maintained  for  all  users.  With 
these  provisions,  the  basic  FORTRAN  programs  are  operable  on  IBM,  CDC, 
UNIVAC,  CRAY,  Amdahl,  and  other  computers,  except  that  system-dependent 
service  routines  as  specified  by  CCCC  must  be  provided. 

Optional  packages  and  procedures  which  provide  enhanced  convenience  are 
also  available.  The  optional  run-time  storage  allocation  requires 
system-dependent  routines.  Instructions  for  installing  these  options 
are  distributed  with  the  source  programs.  All  known  users  at  this  time 
use  all  of  the  optional  enhancements  available  to  them.  Even  so,  the 
basic  operation  with  FORTRAN  routines  plus  the  CCCC  package  remains 
available  if  needed. 


3.7.2  Service  Subroutines 

Certain  standard  service  subroutines  are  specified  by  the  CCCC  for  use 
in  reactor  physics  codes.  The  service  routines  used  in  these  codes 
include: 


TIMER  Provides  timing  and  job  identification  data 


REED 

RITE 


Provide  sequential  access  to  data  files 
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DRED 


DRIT 

DOPC 


Provide  random  access  to  data  files 


Provides  initiating,  closing,  and  certain  repositioning 
of  data  files 


CRED 

CRIT 


Provide  block  transfer  of  data  between  fast  and  slow 
memory . 


Many  of  these  subroutines  also  call  other  subroutines.  Many  are 
entirely  system  dependent.  Each  configuration  to  be  distributed 
contains  an  appropriate  set  of  service  subroutines,  insofar  as  possible. 
The  realities  of  computing  environments  may  require  local  modification 
or  substitution.  The  specifications  given  in  Reference  4,  together  with 
extensive  in-stream  comments,  provide  guides  for  such  modification. 
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3.9  SAMPLE  PROBLEM 

The  sample  problem  demonstrates  the  calculation  of  the  air-over-ground 
environment  for  the  two-meter  box  experiments.®*’  Figure  3-1  shows  a 
simple  diagram  of  the  geometry  modeled  in  the  GRTUNCL  input.  A  complete 
listing  of  the  input  cards  for  the  sample  problem  is  given  in  Figure 
3-2,  and  some  selected  output  is  shown  in  Figure  3-3. 

In  viewing  Figure  3-2,  the  input  illustrates;  8  material  zones  (IZM),  66 
radial  intervals  (IM),  84  axial  intervals  (JM),  69  energy  groups  (I6M), 
a  cross-section  table  length  (IHM)  of  72,  no  upscatter  (IHT=3,  and 
IHS=4),  and  a  mixing  table  length  (MS)  of  0.  No  material  data  was  read 
in  from  cards  (MCR=0)  and  54  materials  (9  different  mixtures,  each  with 
a  Pq  through  P5  component)  were  read  in  from  a  6IP  tape  (MTP=54,  and 
IDAT1«2).  Thus,  the  total  number  of  materials  (MT)  was  54,  and  no  print 
was  requested  for  the  printed  output  (IPRTC=1).  A  DOT  IV  formatted  first 
collision  source  file  was  output  (IM0DE=4)  on  logical  unit  23  (NPS0=23) 
and  the  first  five  groups  of  uncollided  fluence  were  printed  (IPRTF=5). 
The  input  source  was  a  point  source  located  16.143  meters  above  the 
7=0.0  plane  (ZPT),  at  r=0.0  (RPT),  and  was  entered  as  an  angular/energy 
dependent  source  with  40  directions  specified  (IZ3=40).  Eighteen 
materials  (3  mixtures)  were  used  in  the  calculation  which  correspond  to 
the  first  eighteen  materials  output  in  the  GIP  sample  problem  shown  in 
the  last  section  (ground,  borated  concrete,  and  air).  The  three 
mixtures  and  eight  material  zones  illustrates  the  multiple  zone  option 
per  material  eluded  to  in  Section  3.3.  All  comments  after  the  slash  (/) 
are  ignored  in  FIDO  input  and  are  only  useful  for  quick  identification 
of  the  input  parameters.  The  GRTUNCL  sample  input  in  Figure  3-2  shows 
an  angular  and  energy  dependent  source  distribution  with  units 
4jr*particles/steradian  per  leaking  neutron.  The  energy  dependence  (15* 
array)  is  already  represented  in  the  shape  function  (14*  array)  and  is 
therefore  entered  as  ones. 

The  selected  GRTUNCL  output  shown  in  Figure  3-3  first  illustrates  the 
input  parameters  read  in  the  first  data  block,  followed  by  the  blocking 
and  memory  requirements  to  run  this  particular  GRTUNCL  case  with  this 
order  of  blocking,  and  an  indication  that  the  second  data  block  has  been 
successfully  read.  The  output  then  produces  the  zone  number  by  interval 
map,  the  material  number  by  interval  map,  and  a  table  listing  the  input 
in  the  2*,  3*,  4*,  6*,  7*,  9*,  10$,  11$,  and  12*  arrays.  This  output  is 
useful  for  checking  the  input  to  make  sure  there  are  no  errors.  This 
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table  is  followed  by  a  listing  of  the  fission  spectrum  (1*  array),  then 
the  source  distribution  (13*,  14*,  and  15*  arrays).  The  output  then 
shows  some  messages  informing  the  user  of  the  completion  of  the 
calculations  (by  block)  and  the  time  required  to  perform  each  block. 
After  the  calculation  is  complete  (all  blocks  calculated),  GRTUNCL 
prints  the  balance  table.  This  table  is  useful  for  checking  the  source 
normalization,  and  leakages  for  the  system.  Errors  in  the  model,  cross 
sections,  or  mesh  should  make  themselves  evident  in  this  table. 

Finally,  the  output  lists  the  fission  density  by  interval  and  the  first 
collision  source  by  interval  (for  the  number  of  groups  specified  in  the 
input) . 
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Figure  3-1.  Schematic  Diagram  of  the  Air-Over-Ground 
Geometry  Model  Used  in  the  GRTUNCL  Analysis. 


'  aprf  air-over-ground  using  new  saic  1989  angle-energy  leakage  source 
'  16.143m  source  height,  simple  topography  out  to  400m  test  site 
'  34%  ground  moisture,  10/24/89 (a)  air  parameters 

1$$  0  5  8  66  84  /  ith,isct,izm,im,jm 

69  3  4  72  0  /  igm, iht, ihs, ihm,ms 

0  54  54  2  0  /  mcr,mtp,mt,idatl,noa 

4  1  0  23  5  /  imode,iprtc,nflsv,npso,iprtf 

0  40  0  300  0  /  iprts,iz3,idfac,nbuf,ntnpr 

2**  0  1614.3  0  /  xnf,zpt,rpt 

t 

1**  fO  /fission  spectrum 
2**  /axii  (jm+1) 

-80  -75  -70  -65  -60  -55  -50  -45  -40  -35  -30  -25  -20  -15  -10  -5  -2.5 

-1  0  50  150  250  489  749  949  1102  1220  1311  1381  1435  1476  1508  1532 

1551  1566  1577  1585  1592  1597  1601  1604  1607  1608.5  1610  1614.3  1619 
1620.5  1622  1624  1627  1631  1636  1643  1651  1662  1677  1696  1720  1752 
1793  1847  1917  2008  2126  2279  2479  2739  3076  3514  4085  4826  5789  7042 
8670  10787  13000  16000  19000  22000  25000  28000  31000  34000  37000  40000 

4**  /radii  (im+1) 

0  4.6  6  7.8  10  13  17  22  29  37  48  63  82  106  138  179  233  303  394  512  665 
865  1125  1462  1900  2471  3212  4175  5428  7056  9000  11000  13000  15000 
16500  17500  19000  21000  23000  25000  27000  28500  29500  30500  31500 

33000  35000  37000  38500  39500  40500  41500  43000  45000  47000  49000 

51000  54000  57000  60000  63000  66000  69000  72000  75000  78000  80000 

8$$  /  zone  numbers  by  interval 

'  zones  1,  2,  &  3-aprf  ground,  4  &  5-borated  concrete,  6,  7,  &  8-air 
66rl  8q66  /j-ints  1-9 
19r5  47rl  2q66  /j-ints  10-12 

19r4  3r3  8rl  3r3  3r2  5r3  3r2  4r3  3r2  3  14rl  5q66  /j-ints  13-18 
33r7  3r6  5r7  3r6  4r7  3r6  7  14r8  3q66  /j-ints  19-22 
52r7  14r8  3q66  /j-ints  23-26 
66r8  71q66  /j-ints  27-98 

9$$  3r-l  2r-7  3r-13  /  mat  by  zone 


Figure  3-2.  Sample  GRTUNCL  Input  for  the 
Two-Meter  Box  Air-Over-Ground  Analysis. 


3-28 


13**  /  angular  directions  of  source  (-1.  is  down  +1.  is  up) 

-.99794  -.98973  -.97337  -.94900  -.91680  -.88117  -.84355  -.80122 

-.75441  -.70316  -.64809  -.58978  -.52822  -.46383  -.39684  -.32761 

-.25670  -.18443  -.11105  -.03705  +.03705  +.11105  +.18443  +.25670 

+.32761  +.39684  +.46383  +.52822  +.58978  +.64809  +.70316  +.75441 

+.80122  +.84355  +.88117  +.91680  +.94900  +.97337  +.98973  +.99794 


14** 

'  aprf  angular  leakage  source,  s(angle,energy)/40  angles/dabl69/{3-l-90) 
'  units  are  4*pi*particles/steradian  per  leaking  neutron 
1.41e-06  1.43e-06  1.65e-06  1.85e-06  2.02e-06  2.37e-06  2.49e-06  2.60e-06 

2.67e-06  2.74e-06  2.70e-06  2.75e-06  2.81e-06  2.86e-06  2.91e-06  3.00e-06 

3.03e-06  3.05e-06  3.07e-06  3.07e-06  3.07e-06  3.07e-06  3.07e-06  3.07e-06 


[IZ3*IGM  entries] 


3.05e-07 

2.00e-07 

2.11e-07 


2.88e-07 

1.99e-07 

2.11e-07 


2.60e-07 

2.02e-07 

2.04e-07 


2.21e-07 

2.04e-07 

1.34e-07 


1.88e-07 

2.04e-07 

9.76e-08 


1.88e-07 

2.02e-07 

8.75e-08 


1.92e-07 

2.02e-07 

7.01e-08 


1.94e-07 

2.09e-07 

6.14e-08 


15**  /  source  multiplier  for  each  energy  group 

69rl.O 
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Figure  3-3.  Sample  GRTUNCL  Output  for  the  Two-Meter  Box  Air-Over-Ground  Analysis. 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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Figure  3-3.  (continued) 
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accumtilotod  cPargo  ■  0.6619  min.  •••  chargo  Incromont  •  8.66190ln. 


4.0  OORT:  A  TWO-DIMENSIONAL  DISCRETE  ORDINATES  TRANSPORT  CODE* 


4.1  INTRODUCTION  TO  DORT 


4.1.1  Background 

A  summary  of  the  mathematical  basis  for  the  method  of  discrete  ordinates 
as  we  use  in  DORT’  today  is  given  by  Lathrop  and  Brinkley.^  Mynatt  et 
al.^  give  a  full  mathematical  development,  applications  information,  and 
comparisons  of  results  with  experiments.  Carlson  and  Lathrop^  give  a 
full  development  of  the  method  with  emphasis  on  physical  principles  and 
evaluation  techniques.  They  also  give  an  annotated  bibliography  of 
early  work  in  the  field  including  a  very  early  report  by  Carlson  in 
1953.®  A  1958  paper  by  Carlson  and  Bell^  may  have  been  the  first 
widely-distributed  description  of  the  "discrete  method"  as  they 
called  it.  In  1960,  Carlson,  Lee,  and  Worlton  published  a  description 
of  the  DSN  code,  which  used  their  method.^  Davison,®  in  1957,  gave  a 
thorough  review  of  fundamental  discrete-ordinates  theory,  and  a  review 
of  Carlson's  work  in  an  Appendix.  Davison  acknowledges  a  1953  book  by 
Chandrasekhar’  as  the  origin  of  the  method  as  he  presents  it,  and  a  1943 
paper  by  Wick’®  as  the  origin  of  the  basic  idea. 

In  this  section,  we  follow  the  notation  of  Lathrop  and  Brinkley  to  some 
extent.  Their  TWOTRAN  II  code  was  useful  to  us  in  constructing  DOT  4”, 
and  it  may  be  worthwhile  to  comment  on  the  relationship  between  TWOTRAN 
and  DOT.  The  earlier  versions  of  DOT  actually  descended  from  the  LASL 
codes  DTK  and  DDK,  and  from  the  LASL/UNC  code  DDF/2DF.  A  version  of  DOT 
was  distributed  informally  in  1966,  although  formal  publication  was  not 
made  until  the  DOT  III  version  in  1973. Early  versions  of  TWOTRAN  were 
published  in  a  1968  GA  report’®  and  elsewhere. 

Descendants  of  both  TWOTRAN  and  DOT  remain  in  widespread  use  today,  and 
their  very  different  capabilities  apparently  justify  this  dual 
existence.  Numerous  other  writings  pertinent  to  DOT  development  appear 
in  ANS  Transactions  and  elsewhere.  A  reasonably  complete  bibliography 
of  related  material  is  give  in  Appendix  C  of  Reference  14. 


4.1.2  The  Problem  Solved 

DORT  is  primarily  intended  to  solve  large  neutron  and  photon  transport 
problems  on  a  wide  variety  of  computer  types  using  the  method  of 
discrete  ordinates.  Most  DORT  problems  deal  with  the  calculation  of 


*W.  A.  Rhoades  and  R.  L.  Childs,  "The  DORT  Two-Dimensional  Discrete 
Ordinates  Transport  Code,"  Nuclear  Science  &  Engineering  99,  1, 
pp.  88-89,  (May  1988). 
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radiation  resulting  from  a  given  extraneous  source,  i.e.,  "fixed -source" 
problems.  If  such  a  system  has  fissile  material  and  is  subcritical,  the 
multiplication  can  be  calculated.  The  code  also  has  K^ff  capability  and 
various  types  of  searches.  A  diffusion  theory  section  is  valuable  for 
initiating  such  problems  or  as  an  alternative  to  the  primary  discrete 
ordinates  section  where  applicable. 

Special  remeshing  features  allow  the  number  of  first-dimension  (i)  mesh 
intervals  to  vary  with  the  second  dimension  (j)  index.  An  arbitrary 
coarse  mesh  can  be  used  for  fluence  acceleration,  saving  memory  and  CPU 
time.  The  directional  quadrature  set  can  be  chosen  from  an  arbitrary 
number  of  input  sets.  The  choice  can  vary  with  spatial  option  and  with 
energy  group.  The  flexibility  has  proven  quite  effective  in 
concentrating  CPU  effort  in  areas  needing  attention,  such  as  streaming 
gaps.  Biased  direction  sets  can  be  used  when  streaming  is  primarily  in 
the  upward/downward  directions. 

A  variety  of  options  allow  sources  to  be  specified  at  internal  or 
external  boundaries,  distributed  by  space  and  energy,  or  determined  from 
an  input  fluence  guess.  "First-collision-source"  data,  actually  an 
analytical  first-flight  scattering  source,  can  be  accommodated.  Output 
files  for  an  "analytical-last-flight"  integration  can  be  obtained. 

These  features  provide  increased  accuracy  when  dealing  with  out-of¬ 
system  or  loca"  zed  sources  or  detector  locations. 

A  single  output  file  contains  both  distributed  fluence  moments  and 
boundary  directional  fluences,  so  that  this  file,  plus  the  original 
input  data,  provide  an  "exact"  restart.  This  allows  a  large  problem  to 
be  solved  in  several  computer  runs  without  loss  of  efficiency. 

Both  1-D  and  2-0  geometries  can  be  treated.  Discrete  ordinates 
geometries  include  1-D  plane  or  slab  and  2-D  XZ,  Re,  or  RZ.  The 
diffusion-theory  section  has  triangular-mesh  capability  as  well.  A 
powerful  slab  reflection/transmission  feature  is  available.  A  variety 
of  acceleration  options  are  available.  Extensive  use  of  input  options 
and  output  edits  give  the  user  very  direct  control  over  the  iteration 
process.  While  this  places  a  burden  of  decision-making  on  him,  it  is 
essential  to  the  solution  of  large  and  difficult  problems.  Default  and 
recoiranended  values  assist  the  uninitiated  in  solving  problems  without 
much  prior  use  of  the  code. 

Output  source  information  to  be  used  in  coupling  to  other  problems  can 
be  obtained.  Typical  applications  include  "bootstrapping,"  in  which  a 
very  large  problem  is  solved  in  several  segments;  core- vessel 
combinations,  in  which  a  core  is  solved  in  an  eigenvalue  calculation  and 
then  represented  by  internal  boundary  conditions  in  a  fixed-source 
vessel  calculation;  coupled  discrete-ordinates-Monte  Carlo  calculations; 
and  RZ  air-ground  calculations  coupled  to  3-D  discrete  ordinates 
analysis  of  local  features. 
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Portions  of  this  section  were  extracted  from  Reference  14  for 
completeness.  The  interested  user  should  consult  that  document  for  a 
full  description  of  the  DORT  code.  An  extensive  problem  set  and  a 
tutorial  description  is  available  to  demonstrate  the  various  features 
and  problem  setup  techniques. 


4.1.3  Code  Structure 

This  code  and  its  predecessors  have  been  adapted  to  a  large  variety  of 
computers  from  the  IBM  7090  to  modern  Grays.  In  order  to  maintain 
compatibility  without  undue  confusion,  a  "unified  source  file"  concept 
is  used;  only  a  single  version  of  the  basic  code  is  kept,  with  final 
configuration  details  supplied  when  a  file  is  prepared  for  compilation. 
Standard  language  and  programming  practices  are  used  throughout  the  main 
body  of  the  code.  In-stream  "language  flags"  make  minor  language 
adjustments  as  required  when  a  specific  configuration  is  tailored. 
Interchangeable  interface  packages  provide  coupling  with  system- 
dependent  library  features. 

On  all  computers,  direct  (random)  access  scratch  files  are  used  as  an 
extension  of  memory.  Data  are  retrieved  from  the  files  into  large 
buffers  controlled  by  the  I/O  manager  routine.  The  working  program  then 
uses  and  updates  the  buffers  before  their  return  to  the  scratch  files. 
Since  communication  with  the  buffers  is  processed  entirely  through  the 
interface  package,  the  buffers  can  be  located  in  a  large  cache  memory 
such  as  the  LCM  on  the  late  GDC  7600  or,  presumably,  on  a  Gray  SSD 
device.  The  code  attempts  to  make  the  maximum  use  of  available  memory 
in  order  to  minimize  I/O  costs  and  delays.  Reversion  to  more  extensive 
use  of  scratch-files  is  automatic  when  required. 

The  flexibility  provided,  together  with  the  close  control  of  the 
solution  process,  requires  an  extensive  and  complicated  input  data  list. 
Most  of  these  data  can  be  ignored  for  most  problems.  A  diverse  set  of 
sample  problems  serves  as  a  guide  to  actual  requirements  for  practical 
problems. 


4.2  THEORETICAL  BASIS 


4.2.1  The  Integro-Differential  Transport  Equation 

The  Boltzmann  transport  equation,  as  applied  to  static  neutron  and 
photon  transport,^  can  be  expressed: 
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(4-1) 


V  •  a^(r,E,fi)  +  (t.E.Q)  V>(r.E.a)  = 

J  J<t’  it,  E,  E'.a.O')  V-  it,  E',2')  dn'  dE' 

H-^xCt.E)  j  J  u{r,E')a^  (r.E')  t}>  {r,E',Q')  dQ'  dE'  +  Q  ir,E,Q) 


In  this,  do  is  a  differential  solid  angle  about  the  direction  vector  fl, 
dE  is  a  differential  energy  about  f,  and  r  is  a  position  vector  with 
reference  to  an  arbitrary  origin.  The  directional  fluence  function,  i>, 
is  defined  such  that  the  number  of  particles  moving  in  volume  dr  about  r 
with  energies  fallinq  within  dE  and  directions  of  motion  within  dCl  will 
be  i^dQdEdr.  Also,  o'  and  are  macroscopic  cross  sections  for  total 
interaction  and  fission,  respectively,  and  a*  is  the  cross  section  for 
scattering  from  energy  E'  and  direction  ft'  to  energy  E  and  direction  ft. 
The  functions  v  and  X  represent  the  total  fission  yield  of  secondary 
particles  and  the  corresponding  energy  distribution.  Q  represents  an 
extraneous  source,  if  any. 


Although  the  general  Boltzmann  equation  includes  time  dependence, 
removal  of  that  dependence  in  the  static  form  presented  here  is  an 
important  simplification.  Certain  other  simplifications  will  also  be 
made  later.  As  a  practical  matter,  scattering  is  generally  independent 
of  initial  direction,  so  that  it  can  be  expressed  in  terms  of  the  single 
scattering  angle: 


Mo  =  2'  •  0 


(4-2) 


rather  than  as  a  function  of  two  direction  vectors.  Although  some 
applications  exist  for  the  dependence  of  on  ft,  they  are  unusual,  and 
this  dependence  is  not  allowed  in  OORT.  A  somewhat  weaker  justification 
exists  for  the  removal  of  the  dependence  of  X  on  space.  In  fact,  if 
more  than  one  fissile  species  exists  in  the  system,  and  if  the  species 
do  not  always  fission  in  the  same  proportion,  X  will  depend  on  space. 
Nonetheless,  the  code  does  not  presently  allow  such  dependence. 


4.2.2  The  Finite  Difference  Formulation 

The  procedures  for  obtaining  a  finite-difference  equation  from  Equation 
4-1  are  discussed  thoroughly  in  References  3  and  4,  although  the  form 
presented  here  follows  Reference  2: 
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'*'  ^Tj,9  ^i,i,f^,9,  ~  ^‘.J  ‘^«.>>"».S 


(4-3) 


It  can  be  shown  that  the  formulation  of  Mynatt  et  al is  equivalent  to 
this. 

In  this  notation,  subscripts  i  and  j  represent  mesh  intervals  in  the 
first  and  second  space  dimensions.  The  subscript  m  refers  to  the 
direction  in  a  ordered  set  of  directions  along  which  fluence  is  to  be 
evaluated.  Subscripts  such  as  i  +  1/2  refer  to  the  interval  boundaries, 
e.g.,  boundary  i  +  1/2  is  the  boundary  separating  interval  i  from 
interval  /  +  1.  In  the  case  of  m,  this  is  somewhat  artificial,  since 
each  m  represents  a  discrete  direction  with  no  defined  sector  of  solid 
angle  associated.  In  fact,  directions  represented  by  successive  m's  may 
not  even  be  "adjacent"  in  direction  space.  Even  so,  the  equation 
requires  coupling  between  certain  fluences  having  consecutive  m  values, 
and  the  coupling  terms,  a,  will  be  defined  in  a  consistent  manner. 
Subscripts  such  as  m  +  1/2,  then,  merely  denote  artificial  intermediate 
values.  The  subscript  g  refers  to  energy  group. 

It  may  be  noted  at  this  point  that  obvious  subscripts  are  frequently 
omitted  in  discrete-ordinates  writings,  e.g.,  the  first  term  of  Equation 
4-3  might  later  be  written: 


In  practice,  this  approach  is  probably  less  confusing  than  the  inclusion 
of  long  lists  of  redundant  subscripts. 

In  certain  discussions,  I  and  J  are  understood  to  be  the  upper  limits  of 
i  and  j.  It  may  also  be  noted  that  space  mesh  positions  are  discussed 
such  that  boundaries  having  /  ■  1/2,  i  -  /  +  1/2,  j  ■  1/2,  and  j  =  J  + 
1/2  are  spoken  of  as  "left,"  "right,"  "bottom,"  and  "top,"  boundaries, 
regardless  of  geometry. 
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The  ordered  set  of  directions  of  particle  travel  are  characterized  by 
their  direction  cosines,  (/ig,,  C/n,  tim).  In  all  geometries,  is  the 
cosine  of  the  angle  which  the  direction  of  travel  makes  with  the  first- 
dimension  axis,  i.e.,  X  or  R,  while  ri^  is  the  cosine  of  the  angle  with 
the  Z  axis  (Table  4-1).  In  each  case,  is  the  cosine  with  the 
remaining  direction  vector,  either  along  the  Y  axis,  or  in  the  azimuthal 
direction  in  the  case  of  R8. 

Due  to  symmetry,  no  flow  is  associated  with  one  of  the  direction 
cosines,  either  ij  or  Thus,  r  is  used  to  represent  either  ^  or  ij,  as 
shown  in  Table  4-1.  Also,  w  is  allowed  to  represent  the  remaining 
cosine.  The  parameters  A  and  B  are  cell  areas  perpendicular  to  the  axes 
from  which  /i  and  r  are  measured. 

Each  direction  has  an  associated  weight,  Ui„.  Quantities  involving 
integrals  over  all  directions  are  to  be  evaluated  by  sums  with  Uu,  as  the 
weighting  function.  N  represents  the  directional  fluence,  }[>,  in 
direction,  m,  although  it  will  be  seen  that  N  has  different  units.  V 
and  5  are  the  volume  and  source  in  a  given  mesh  cell,  and  is  the 
macroscopic  total  cross  section.  It  is  assumed  that  5  includes 
extraneous  sources,  scattering  from  other  energy  groups,  scattering  at 
the  given  energy  from  other  directions,  fission,  and  any  other  particle 
sources,  e.g.,  (n,2n). 


Table  4-1.  Directional  Properties  of  the  Geometries. 


Geometry  X2 
Dimensions  Solved  X 
Dimension  Corresponding  to  X 
Dimension  Corresponding  to  Y 
Dimension  Corresponding  to  i?  Z 
Cosine  Corresponding  to  r  ij 
Cosine  Corresponding  to  i 
Dimension  Perpendicular  to  A  X 
Dimension  Perpendicular  to  B  Z 


As  indicated  in  Table  4-1,  the  1-D  geometries  evaluate  fluence 
dependence  in  only  the  first  dimension.  In  such  cases,  the  usual 
evaluation  procedures  are  used,  but  B-0. 

It  can  be  observed  that,  except  for  the  terms  in  a.  Equation  4-1  is 
simply  a  statement  of  particle  balance  for  a  given  cell,  and  could  have 
been  written  down  directly.  From  this,  it  is  evident  that  the  discrete- 
ordinates  equation  conserves  particles  inherently,  if  the  a  terms  are 
defined  such  as  to  conserve. 

The  terms  in  a  are  effective  only  in  curved  geometry,  RZ  or  R0.  Their 
physical  meaning  can  be  made  apparent  by  considering  a  particle  moving 
inward  along  a  path  which  will  take  it  closer  to  the  axis  of  a  cylinder. 
While  If  is  a  constant  for  such  a  path,  fi  constantly  increases  from 
negative,  through  zero,  and  ultimately  toward  /i  »  +1  as  the  particle 
moves  away  from  the  centerline.  Thus,  the  discrete-ordinates  equation 
must  show  a  comparable  flow  toward  directions  of  larger  fi  for  comparable 
particle  paths. 

In  order  to  allow  manageable  evaluation  of  the  terms  in  a,  an  ordering 
discipline  is  imposed  upon  the  directions  represented  by  m.  Since  the  a 
terms  must  couple  directions  of  like  q,  directions  of  like  i?  are  grouped 
contiguously,  in  order  of  increasing  /i.  The  groups  of  directions  with 
like  ij  ("fj  levels")  are  ordered  such  that  all  directions  with  ij  <  0 
precede  all  directions  with  ij  >  0.  Thus,  the  a-flow,  following  an 
actual  path  inward  and  then  outward,  is  always  toward  directions  of 
increasing  m  within  an  q  level.  It  can  also  be  seen  that  there  must  be 
no  flow  between  »i  levels  in  order  to  be  consistent  with  the  physical 
model . 

The  recursion  relationship  for  the  a's  can  be  obtained  at  this  point  by 
observing  that  Equation  4-3  must  be  valid  in  a  source-free  region  where 
N  is  uniform.  Since  no  constraint  may  be  placed  upon  (a^.  A,  B,  or  V, 
then  it  must  follow  that,  for  a  given  q  level: 


Mm  On,+  A  *^m  — ^ 


(4-4) 


Since  it  is  required  that  a  coupling  be  only  between  directions  within 
an  If  level,  then  On-yn  *  0  for  the  first  direction  of  the  level.  It  is 
essential  that,  for  each  level; 


y  Wrr^fXm  =  0  ,  (4 ' 5) 
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so  that  <vv2  ®  level,  and  there  will  be 

no  net  flow  into  or  out  of  the  ij  level.  This  insures  that  particle 
conservation  is  rigorously  met.  Symmetrical  quadrature  sets  always  obey 
this  condition,  and  it  is  important  that  unsymmetrical  sets  obey  this 
condition,  also. 

There  is  certain  advantage  to  be  gained  by  substituting  a  new  variable, 
p  for  a: 


/3m 


W„ 


(«, 


■  +  i 


+ 


(4-6) 


The  recursion  relationship  for  the  can  be  obtained  by  applying  its 
definition  to  the  recursion  relationship  for  o: 

Wm  Pm  =  Om+i  +  "m-1  ^  (4-7) 


14^m+l  Pm-i-l  ^m+l  4” 


(4-8) 


am_i  -  Mm 


(4-9) 


and 


^m  +  f  —  ^m+i  H^m+l  Mm  +  1 


(4  -  10) 


Therefore 


W^m+l  P  m+1  —  Pm  —  (IT^m+l  Mm+1  +  l^m  Mm) 


(4-11) 


Recalling  that  a*.v2  *  0  the  first  direction  of  each  ij  level,  then 
it  follows  that  for  such  levels;  at  least  if  ^  0.  As  will 

be  discussed  later,  this  relationship  is  assumed  even  when  -  0. 

It  is  important,  both  in  applying  boundary  conditions  and  in  obtaining 
proper  stability,  to  "follow  the  flow"  in  writing  the  recursion 
formulas;  i.e.,  all  directions  with  /i  <  0  must  be  evaluated  from  large  X 
or  R  values  toward  small,  and  so  with  the  other  dimension.  Similarly, 
positive  fi  values  require  evaluation  from  small  X  to  large,  etc.  These 
procedures  can  be  written  in  a  single  formula  by  use  of  subscript 
increments  defined  in  terms  of  the  signum  function  (Sg);  which  has  value 
±  1  according  to  the  sign  of  its  argument: 
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c 


d  = 


Sg{T^) 


(4  -  12) 


Written  in  terms  of  p,  c,  and  d,  Equation  4-3  can  be  simplified  to: 


I  M  I  (Ai+c  A".+c  -  >l,-c  Ni^c)  +  I  r  I  B(Nj+j 
-h-AA{(/3^  -  Mm)N„+i  -  (y3„  -h 


-  N,-,) 

Va'^  N  =  VS  , 


(4-13) 


where 


A  A 


(4-14) 


and  where  N  is  simply  a  simplified  representation  of  etc. 


4.2.3  Fluence  Evaluation  Strategy 

Evaluation  "following  the  flow,"  as  discussed  above,  is  also  evaluation 
"sweeping  away  from  boundary  conditions  into  the  mesh."  Since 
evaluation  always  begins  with  m  »  I,  the  first  sweep  must  be  toward 
smaller  values  of  i  and  j.  Where  I  and  J  represent  the  largest  values 
of  7  and  J,  then  the  boundary  values  *  ,,2  decided  a 

priori  based  on  physical  considerations  at  the  outer  boundaries  of  the 
system.  No  such  physical  considerations  govern  the  boundary  fluence  at 
m  •  1/2,  however,  as  will  be  seen. 

Before  dealing  with  Afi/2»  observe  that,  even  with  /V,..  and  Nj.^ 

known  from  boundary  considerations  and  ^0  b®  defined  by  a  yet- 
unspecified  process.  Equation  4-3  would  still  involve  4  unknowns.  The 
three  advance  boundary  values,  /Vj«,,  Al^i/2  have  been  treated  as 
completely  independent,  and  are,  therefore,  not  completely  defined  by 
Equation  4-3.  In  fact,  all  of  the  values  of  N  represent  values  of  a 
single  continuous  function  ^  at  adjacent  locations,  and  cannot  vary  more 
freely  than  does.  If  we  suspect  that  can  be  approximated  adequately 
by  straight-line  segments  between  adjacent  boundaries,  then  the 
following  "linear"  or  "diamond"  difference  model  results: 
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(4  -  15a) 


^  =  5(JVi+c  -  Ni-,)  , 

^  -  JVy-j)  ,  (4  -  16i.) 

and 

N  =  ,  (4-lSc) 


As  previously  discussed,  -  -/x,.  Accordingly,  Equations  4-13  and  4-15 
cannot  yield  direct  information  as  to  an  appropriate  value  of  Ny2*  and 
the  other  results  are  independent  of  this  value.  Accordingly,  ^,,2  is 
arbitrary  and  unknown.  If  N,  is  to  be  related  to  Ny2  and  /V3/2,  the  only 
acceptable  assumption  is  : 


Ni  =  Ni  . 

3 


(4  -  16) 


Since  each  ij  level  begins  with  a  «  -/x,,  each  must  start  with  an 
"Initiating  direction"  having: 


i  0  —  —fi. 


(4-17) 


If  an  initiating  direction  occurs  for  m  >  1,  and  m'  is  the  predecessor 
to  m,  then  Equation  4-15  defines  values  for  m'  +  1/2  and  m  -  1/2  which 
do  not  agree.  In  fact,  the  fluence  is  not  required  to  be  continuous 
between  directions  on  different  ?j  levels,  and  they  do  not,  in  general, 
describe  adjacent  directions.  Thus,  there  is  neither  physical  nor 
mathematical  requirement  for  continuity  of  fluence  between  them. 

It  has  been  traditional  in  the  early  DOT  codes  to  allow  these  initiating 
directions  to  have  hl^  •  0,  i.e.,  "zero-weight  directions,"  and  to  adjust 
their  directions  such  that  < -  0.  Carlson  and  Lathrop  describe  this 
procedure.^  On  the  other  hand,  TWOTRAN  II  uses  directions  having  small, 
finite  weights  and  having  small,  but  not  0.  Tomlinson  et  al.'^ 
showed  that,  other  factors  being  equal,  this  choice  does  not  affect  the 
results  of  test  problems  significantly.  Both  types  of  calculations  are 
available  in  DORT,  although  the  direction  sets  input  to  the  code  must 
always  contain  directions  with  *  0  to  signal  the  beginning  of  a  new  ij 
level.  When  TWOTRAN-like  calculations  are  done,  or  in  XZ  geometry, 
fluence  is  not  calculated  in  directions  having  W.  ■  0. 
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Having  decided  on  boundary  values  for  initiating  the  sweeps,  Equations 
4-15  and  4-17  define  the  remaining  unknowns  in  terms  of  the  single 
unknown,  N,  for  the  initial  direction  of  each  ij  level: 


=  2N 

-  N,.,  , 

(4- 

IS) 

=  2N 

1 

1 

(4- 

19) 

Defining,  as  a  matter  of  convenience: 

A  =  1  +  A_i)  ,  (4-20) 

observing  that: 

2  1  M  Mi+c  +  AA{/3  -  fi)  =  2\^l\A  +  AA0  ,  (4-21) 


and  recalling  that  /9  «  -p  for  the  initial  direction  of  each  jj-level,  the 
value  of  H  can  be  written  explicitly: 


N  = 


VS  +  2\fi\  iiV.-c  +  2\t\  BN,-i  _ 
VcT  ^  2\n\A  2\t\B 


(4  -  22) 


This  equation  applies  to  the  initiating  directions,  whether  W  =  0  for 
such  directions  or  not.  For  all  other  directions.  Equation  4-17  does 
not  apply,  and  ^*-1/2  is  obtained  by  applying  Equation  4-15c  to  the 
preceding  directions: 


=  2N  -  N. 


m-l 


^  -/i. 


(4  -  23) 


Since  ^  =  -/x  for  such  directions,  terms  in  fi  appear  in  the  formulation 
for  N: 


V5  +  2  I  ;x  I  4-  2  I  r  I  BNj.j  -F  AAl3N^_i 

Va’^  +  2  \  ^i\A  +  2\t\B  AA0 


-fi.  (4  -  24) 
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At  this  point,  an  explicit  sweep  pattern  has  been  found.  Determining 
+i/2>  and  A/j+1/2  as  described.  Equation  4-22  gives  Nj  j  i 
explicitly.  Equation  4-18  gives  Wi-i/a  explicitly,  recalling'  that  fi  <  0 
for  the  first  direction,  and  thus  c  =  -1/2.  This  evaluation  can  proceed 
for  all  i's  down  to  the  boundary  value  at  /  =  1/2.  With  these  values  in 
storage,  values  for  m  »  1  1/2  can  be  found  using  Equation  4-17.  If  that 
jj-level  contains  additional  directions  with  n  <  0,  values  for  m  =  2  are 
evaluated  from  Equation  4-24,  and  extrapolated  with  Equation  4-23.  This 
process  continues  for  all  m's  for  which  <  0  and  /<  <  0.  Having  these 
values,  the  values  for  directions  having  »?  <  0  and  >  0  at  /  =  1/2  can 
be  determined  from  physical  boundary  conditions.  The  sweep  proceeds  as 
before,  except,  of  course,  that  evaluation  is  from  /  =  1/2  to  i  =  I  + 
1/2.  From  these  values.  Equation  4-19  determines  /l/j-v2»  the  process 
proceeds  as  before  downward  to  j  =  1/2.  Boundary  values  at  j  =  1/2  for 
directions  having  ij  >  0  are  determined  from  physical  boundary  conditions 
at  the  bottom  boundary,  and  the  sweep  resumes,  this  time  from  j  =  1/2  to 
j  =  J  +  1/2. 


4.2.4  Additional  Theory  Information 

There  is  an  excellent  description  of  the  detailed  inner  workings  of  the 
DORT  code  given  in  Reference  14.  In  this  document,  the  interested  user 
will  find  the  detailed  information  on  the  various  fluence  weighting 
models,  sweep  strategies,  source  terms,  boundary  conditions,  iteration 
strategies,  rebalance  and  acceleration  techniques,  spatial  and 
directional  remeshing  techniques,  directional  quadrature  sets,  and  other 
information  relevant  to  a  full  understanding  of  the  DORT  code.  This 
information  will  not  be  repeated  here. 


4.3  DORT  INPUT  DATA  SPECIFICATIONS 


4.3.1  Card- Image  Format 

The  card-image  input  data  for  a  problem  consist  of  a  title  card  followed 
by  a  variable  number  of  blocks  of  data  separated  by  "T"  delimiters. 
Within  each  block,  a  variable  number  of  data  arrays  are  specified,  keyed 
according  to  an  array  number,  and  identified  as  to  real  or  integer  type. 

A  separator  card  must  be  placed  between  successive  problem  decks.  If  it 
contains  the  word  "DIAG"  in  the  first  four  columns,  a  non-fatal 
diagnostic  will  be  given  by  ERRO.  If  the  word  "DUMP"  appears,  a  fatal 
diagnostic  is  given.  If  the  word  "■END"  appears,  execution  will  stop. 
Otherwise,  the  next  problem  begins  immediately.  No  data  are  retained  in 
memory  between  problems.  At  the  end  of  execution,  all  data  files  are 
closed.  Control  is  then  returned  to  the  driver,  if  the  code  was  invoked 
by  a  driver,  or  else  to  the  operating  system. 
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All  of  the  card- image  input  except  the  title  card  and  separator  card  are 
read  by  the  FIDO  input  processor.  The  format  required  for  FIDO  data 
entries  is  described  in  Appendix  A.  The  data  arrays  and  blocks  to  be 
read  are  described  in  following  sections.  The  first  four  blocks  of  data 
are  permanent,  and  their  "T"  delimiter  must  be  supplied  whether  array 
entries  are  required  or  not. 

Blocks,  after  the  first  four,  containing  arrays  numbered  91  and  higher, 
are  options  supplied  to  allow  certain  simple  problems  to  be  solved 
without  the  labor  of  preparing  formal  fluence  and  source  input  files. 

The  conditions  under  which  these  blocks  are  required  are  included  in 
their  description. 

As  each  array  of  data  is  read,  its  length  is  compared  with  the  required 
length,  and  an  error  message  is  given  if  appropriate.  After  each  block 
of  data,  a  call  to  subroutine  ERRO  is  made  if  any  of  the  arrays  in  the 
block  were  of  improper  length,  or  if  the  data  were  otherwise  unsuitable, 
ERRO  prints  an  explanation  of  the  error  and  sets  an  error  flag.  Data 
are  edited  as  soon  as  possible  after  each  block  is  completed. 

Processing  of  input  continues  for  as  long  as  possible,  even  after  an 
error.  In  most  cases,  this  allows  the  user  to  test  all  of  his  data 
blocks  in  spite  of  an  early  error.  Execution  is  terminated  at  the  end 
of  input  processing  if  a  sufficiently  severe  error  has  been  encountered. 

It  is  possible  that  one  error  will  cause  subsequent  data  to  be 
erroneously  flagged  as  wrong.  If  data  which  appear  correct  are  flagged 
by  an  error  message,  this  possibility  should  be  considered.  An  error 
can  also  cause  subsequent  system  related  failures,  such  as  addressing  or 
storage  errors. 

The  first  four  blocks  of  data  contain,  in  general  terms: 

1.  control  parameter  input  arrays  (61-63)  which  set  array  lengths 
explicitly  and  control  execution  options, 

2.  primary  input  arrays  (71-78)  whose  lengths  depend  upon  arrays 
(61-63),  and  whose  contents  determine  later  array  lengths.  These 
arrays  describe  variable-mesh,  variable  quadrature,  variable  P^, 
and  super-mesh  features. 

3.  secondary  input  arrays  (81-87),  whose  length  depend  upon  arrays 
(61-78),  and  whose  contents  determine  later  array  lengths.  These 
include  the  directional  quadrature  specification  set,  coarse  mesh 
specification,  assignment  of  direction  sets  to  super-mesh  cells, 
and  assignment  of  material  zones  to  edit  regions. 

4.  general  input  arrays  (1-30),  which  do  not  determine  the  lengths 
of  other  input  arrays.  These  include  space-mesh  specifications, 
cross-section  mixing  instructions,  specification  of  activity 
edits,  and  much  more. 
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In  the  remainder  of  Section  4.3  of  this  report,  the  broad  concepts 
required  to  understand  the  input  data  are  discussed,  followed  by  a 
detailed  specification  of  the  input  data,  and  finally,  clarification  of 
several  input-related  topics. 


4.3.2  Space  Heshes 

Five  different  subdivisions  of  the  problem  space  are  determined  from  the 
input  data.  Two  sets  of  fine-mesh  interval  boundaries  (2*  and  4* 
arrays)  are  input,  corresponding  to  the  two  spatial  dimensions.  The 
intersection  of  these  boundaries  forms  the  fine-mesh  grid  cells.  (In  R0 
geometry,  the  2*  array  is  entered  in  units  of  revolutions,  not  radians.) 

A  coarse  mesh,  specified  by  an  additional  2  sets  of  intersecting 
boundaries  (85*  and  86*  arrays),  is  used  in  the  fluence  acceleration 
routines.  A  good  choice  of  coarse  mesh  can  save  both  memory  space  and 
execution  time  without  impairing  the  convergence  of  a  problem.  In  some 
cases,  proper  application  of  the  coarse  mesh  can  help  the  convergence 
rate  as  well.  A  coarse  mesh  of  one  mean-free-path  is  ideal  for  many 
problems.  Default  options  allow  the  coarse  mesh  to  be  identical  to  the 
fine  mesh  if  the  variable  space  mesh  feature  (described  later)  is  not 
used.  A  coarse-mesh  I -boundary  must  also  be  a  boundary  in  each  of  the 
fine-mesh  I-boundary  sets.  A  coarse-mesh  J-boundary  must  also  be  a 
fine-mesh  J-boundary. 

A  super  mesh  is  similarly  specified  (75*  and  76*  arrays)  for  use  with 
the  variable  quadrature  feature  (described  later),  and  with  certain 
search  options.  A  super-group  representation  (74$  array)  is  also 
required  when  variable  quadrature  is  used.  The  location  of  the  super¬ 
mesh  and  super-group  boundaries  is  chosen  by  the  user  as  desired,  except 
that  the  super-mesh  boundaries  must  also  be  fine-mesh  boundaries. 

Material  zones  (8$  array)  are  always  specified.  A  material  zone  must 
contain  only  one  cross  section  set,  although  many  zones  may  share  a 
single  cross  section  set.  In  addition  to  cross  section  assignment, 
certain  input  and  edit  features  depend  upon  material  zones. 

Edit  regions  (84$  array)  are  groupings  of  material  zones  used  for  the 
purpose  of  condensing  certain  output  tables.  Certain  input  and  edit 
features  depend  upon  edit  regions. 


4.3.3  Variable  Space  Mesh 

The  fine  mesh  can  be  specified  such  that  the  I  mesh  depends  upon  J.  To 
accomplish  this,  several  "I-sets"  are  specified,  with  different  numbers 
of  intervals  and  different  interval  boundaries.  The  ISET(J)  array  then 
relates  the  proper  set  of  boundaries  to  the  J-level.  Prudent  use  of 
this  feature  can  save  computation  time  and  storage  by  concentrating  work 
in  areas  requiring  a  fine  mesh.  I-direction  coarse-mesh  and  super-mesh 
boundaries  must  be  contained  in  all  fine-mesh  I-sets.  Left  and  right 
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boundaries  of  all  I-sets  must  coincide.  A  "standard"  I-set,  which  is  as 
large  as  any  of  the  I-sets,  must  be  chosen.  Boundary  fluences  and 
sources  are  kept  in  the  standard  I-set  format. 


4.3.4  Variable  Directional  Quadrature 

The  directional  quadrature  sets,  "M-sets,"  are  specified  by  super-zone 
and  super-group.  For  example,  this  allows  the  user  to  specify  a  highly 
biased  quadrature  in  the  area  of  a  streaming  crack  at  high  energy 
without  wasting  such  detail  elsewhere  in  the  problem.  A  standard  M-set 
must  be  chosen  which: 


1.  has  as  many  directions  up  and  as  many  down  as  any  set, 

2.  has  exactly  |MM|  directions,  and 

3.  has  as  many  ri  levels  upward  and  as  many  downward  as  any  set. 


4.3.5  Variable  Legendre  Expansion 

The  order  of  moment  expansion  (P^)  may  be  specified  by  cross  section  set 
(78$)  and  by  energy  group  (77$).  The  former  option  allows  selective 
examination  of  anisotropic  effects,  while  the  group  dependence  can  save 
computation  time  in  lower  energy  groups,  where  anisotropy  is  less 
pronounced. 


NOTE:  These  features  have  not  been  made  operable  in  current 
versions  of  the  code. 


4.3.6  Adjoint  Data 

If  an  adjoint  problem  is  to  be  solved,  all  data  in  the  first  four  blocks 
are  entered  in  the  normal  manner.  All  input  files  supplied  by  the  user, 
and  any  arrays  numbered  91  and  higher,  must  be  supplied  in  adjoint  form, 
i.e.,  reversed  with  respect  to  energy.  For  files  having  directional 
information,  the  user  should  remember  that  an  adjoint  problem  is  solved 
as  a  function  of  -0,  rather  than  Q  where  Q  is  a  direction  specified  by 
the  quadrature  set.  In  other  words,  if  fi>0  and  »7>0  for  a  given 
direction,  the  adjoint  data  calculated  for  that  direction  will  be  that 
appropriate  to  a  particle  moving  in  the  (-/x,  -»?)  direction.  Directional 
input  files  must  be  similarly  reversed,  and  directional  output  files 
will  be.  Output  files  have  the  energy  groups  in  the  order  calculated, 
i.e.,  reversed  from  the  usual  order. 
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4.3.7  Card- Image  Input  Specifications 

In  the  following  section,  the  symbol  indicates  that  a  detailed 
discussion  is  given  elsewhere  in  this  region.  The  symbol  "#"  denotes 
the  word  "number,"  and  "RV"  means  "recommended  value."  After  each  array, 
the  length  is  specified  in  parentheses.  If  an  array  or  block  is  not 
always  supplied,  the  conditional  requirement  is  given  in  brackets.  The 
symbol  "*"  denotes  a  feature  not  presently  operable. 


4.4  DORT  INPUT  REQUIREMENTS 


The  following  input  cards  are  required  to  execute  DORT.  Default  values 
are  specified  in  parentheses. 


Title  Card  (72  alphanumeric  character  description) 


INPUT  DATA  BLOCK  1 

61$  Array  -  Data  Set  Logical  Unit  Reference  Numbers  @ 

(length  subject  to  change) 

NOTE:  Leaving  a  unit  as  0  disables  the  corresponding  feature. 

NTFLX  fluence  guess  input  unit 

NTFOG  fluence  output  unit 

NTSIG  cross-section  unit  (default  »  8) 

NTBSI  external  boundary  source  input 

NTDSI  distributed  source  input  unit 

(must  supply  scratch  unit  if  INPSRM  >  0) 


NTFCI  reserved  (enter  0) 

NTIBI  internal  boundary  source  input  unit 

NTIBO  internal  boundary  fluence  output  unit 

NTNPR  large-scale  print  unit 

(all  print  goes  on  standard  output  unit  if  NTNPR  *  0) 
NTDIR  directional  fluence  output  unit 

-  10  — 

NTDSO  distributed  source  output  unit 

E  (terminate  array  with  "E") 
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62$  Array  -  Integer  Control  Parameters  (length  subject  to  change) 


lADJ  0/1  -  forward/adjoint  calculation 

ISCTM  maximum  order  of  scattering  (L  of  P^) 

(negative  indicates  P^  calculation  is  specified  by 
energy  group  (77$  array))* 

IZM  number  of  material  zones 

IM  maximum  number  of  Ist-dimensional  (I)  spatial  intervals 

in  any  I -set  (negative  indicates  number  of  intervals 
varies  with  2nd  dimension,  i.e.,  variable  mesh) 

JM  number  of  2nd-dimension  (J)  spatial  intervals 

-  5  — 

IGM  number  of  energy  groups 

IHT  position  of  total  cross  section  in  cross-section  table  @ 
IHS  position  of  self-scatter  cross  section  in  cross-section 
table  @ 

IHM  length  of  cross-section  table  for  each  energy  group  @ 

MIXL  cross-section  mixing  table  length  @ 

-  10  — 

MMESH  number  of  material  zone  bodies  (0  -  no  effect) 

MTP  number  of  cross-section  sets  from  NTSI6 

(0  has  the  effect  of  MTP  =  MTM)  0 
MTM  total  number  of  materials,  including  mixtures  0 
IDFAC  density  factor  input  option 

0  implies  feature  not  used 
1  implies  DNIJ(I,J)  input  as  3*,  used  to  modify 
cross  sections 

MM  maximum  number  of  directions  in  any  M-set 

(negative  indicates  variable  quadrature  is  used) 

-  15  — 

INGEOM  geometry  option  0 
0  X-Z  slab 

1  R-Z  cylinder 

2  R-0  circle 

3  180*  -  360*  triangular 

4  60*  triangular 

5  90*  triangular 

6  120*  triangular 

IBL  left  boundary  condition 

0  void 

1  reflected 

2  periodic 

3  cylindrical 

4  fixed  boundary  source 

5  albedo 
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IBR 

IBB 

IBT 

20  — 

ISRMX 

IFXMI 

IFXMF 

MODE 


KTYPE 


25  — 
lACC 

KALF 

IGTYPE 

INPFXM 


INPSRM 

30  — 


right  boundary  condition  0/1/2/3/4/5  (see  IBL) 
bottom  boundary  condition  0/1/2/3/4/5  (see  IBL) 
top  boundary  condition  0/1/2/3/4/5  (see  IBL) 


source  (outer)  iteration  maximum  (default  =  1) 
initial  fluence  (inner)  iteration  maximum  per  group 
(default  *  20)  @ 

(negative  indicates  maximum  given  by  group  (28$  array)) 
alternate  fluence  (inner)  iteration  maximum  per  group  @ 
(no  effect  if  0) 

fluence  extrapolation  model  (default  =  4) 

0  linear  with  negatives  set  to  0 

1  linear  with  no  fixup  of  negatives 

2  scalar  weighted 

3  zero  weighted 

4  theta  weighted 

5  vector  weighted 
calculation  type  @ 

0  fixed  source 

1  K  eigenvalue 

2  DB2  search 

3  concentration  search 

4  dimension  search 


rebalance  method  in  discrete  ordinates  section 
(default  =  2)  0 

0  single  groupwise  rebalance  factor 

1  diffusion  acceleration 

2  partial  current  rebalance 
rebalance  stabilization  0 

0  standard  method 

1  alternate  method 
solution  method  0 

0  discrete  ordinates  used  always 

N  method  selected  by  group  (7$  array)  for  first 
N  outers,  then  finishing  with  discrete  ordinates 
fluence  input  option 

0  fluence  set  to  0,  or  read  from  unit  NTFLX 
if  NTFLX  >  0 

1  FIJ(I,J)  read  as  93*  array  for  each  group 

2  FIJ(I,J)*FG(G),  uses  93*  and  95*  arrays 

3  FI(I)*FJ(J)*FG(G),  uses  93*,  94*,  and  95*  arrays 
distributed  source  input  options  0/1/2/3 

(options  are  analogous  to  INPFXM;  use  96*,  97*, 

98*  arrays)  (NTDSI  >  0  is  required  if  INPSRM  >  0) 
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NJNTSR  interior  boundary  source  at  NJNTSR  J- boundaries  wi11  be 
input  from  NTIBI  (may  be  0) 

NINTSR  interior  boundary  source  at  NINTSR  I-boundaries  will  be 
input  from  NTIBI  (may  be  0) 

NJNTFX  interior  boundary  fluence  at  NJNTFX  J-boundaries  will  be 
written  on  NTIBO  (may  be  0) 

NINTFX  interior  boundary  fluence  at  NINTFX  I-boundaries  will  be 
written  on  NTIBO  (may  be  0) 

lACT  number  of  region  and  pointwise  activities  calculated  0 
(negative  indicates  region  activities  only) 

35  — 

IRED  balance  table  output  control 

In  general,  IRED  is  the  largest  number  in  the  84$  array, 
except  that: 

IRED=IZM  one  region  for  each  zone,  balances  for 
IZM  regions 

IRED=  1  combines  all  zones  into  a  single  region 
IRED=  0  no  balance  table  output,  but  one  region  for 
each  zone 

IRED*  -1  provides  one  region  per  zone,  balance  tables 
will  be  given  for  the  entire  system  only 
IPDB2  punch  J-direction  DB^  from  balance  table  output 
0  no  DB^  produced 

1  single  average  DB^ 

2  IGM  groupwise  DB^  values 

3  IGM*NREG  groupwise  and  regionwise  DB^  values 
(use  negative  entry  to  bypass  balance  table  print) 

IFXPRT  scalar  fluence  print  option  (default  =  1) 

0  scalar  fluence  for  all  groups  printed  in  output  phase 

1  scalar  fluence  not  printed 

2  scalar  fluence  printed  as  calculated 
ICSPRT  cross  section  print  option  (default  *  1) 

0  cross  sections  printed 
1  cross  sections  not  printed 
IDIRF  directional  fluence 

0  directional  fluence  not  saved 

1  directional  fluence  saved  and  printed 

2  directional  fluence  saved  but  not  printed 
(directional  fluence  will  be  written  onto  NTDIR 
if  IDIRF  >  0  and  NTDIR  >  0) 

40  — 

JOTRF  first  J-interval  for  directional  fluence  output 

JDIRL  last  J-interval  for  directional  fluence  output 

NBUF  system  buffer  space  0 

IBM:  I/O  system  block  space,  kbytes  (default  *  90) 

CRAY:  no  effect 


lEPSBZ  zone  importance  convergence  (uses  24*  array)  @ 

0  feature  not  used 
1  zone  importance  used 

11  as  1  &  zone  convergence  printed  after  convergence 

21  as  1  &  zone  convergence  printed  after  each  iteration 

MINBLK  minimum  J-blocking  for  fluence  moment  storage  (rv*0)  @ 

0  1  space  block  per  group,  all  groups  in  memory  allowed 

1  1  space  block  per  group,  1  group  in  memory  allowed 

N  at  least  N  space  blocks  required,  1  group  in  memory 

45  — 

MAXBLK  maximum  J-blocking  0 

0  JM  space  blocks  per  group  allowed 
1  only  1  space  block  per  group  allowed 
N  maximum  of  N  space  blocks  per  group  allowed 
ISBT  standard  I-set  for  boundary  fluences  (default  =  1) 

MSBT  standard  M-set  for  boundary  fluences  (default  =  1 

MSDM  standard  M-set  for  dimensioning  (default  =  1 
(MSDM  -  MSBT  always  in  this  version) 

IBFSCL  number  of  fluence  iterations  before  first  rebalance 
in  first  source  iteration  (default  *=  1)  @ 

50  — 

INTSCL  minimum  number  of  rebalance  iterations  (default  =  4)  @ 

ITMSCL  maximum  number  of  rebalance  iterations  (default  -  50)  0 

NOFIS  fission  spectrum  option  (default  ■  1) 

0  fission  calculated  with  X  normalized  to  1.0 

1  fission  calculated  with  input  X  values 

2  fission  calculation  bypassed,  saving  memory  space 
(NOFIS  will  be  set  to  2  if  the  1*  array  is  0) 

IF0B2Z  DB^  input  option 

0  option  not  used 

1  DB2Z(IG,IZ)  entered  as  6*  array  by  group, 
then  by  region 

ISWP  type  of  diffusion  theory  sweep  (rv-4  or  5) 

0  line  inversion  in  direction  of. largest  number  of  mesh 
intervals 

1  alternating  direction  (line-column)  on  consecutive 
outer  iterations 

2  line  inversion 

3  column  inversion 

4  alternating  direction  (line-column)  on  consecutive 
inner  iterations 

5  alternating  direction  (column-line)  on  consecutive 
inner  iterations 

6  line  inversion  outward  from  center  J  interval 

55  — 
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KEYJN  J-interval  for  key  fluence  print  (ignored  if  0) 

(default  -  1)  @ 

KEVIN  I-interval  for  key  fluence  print  (ignored  if  0) 

(default  -  1)  0 

NSIGTP  cross  section  input  file  (NTSIG)  format  0 
0  GIP  format 
1  ORDOSW  format 

NORPOS  cross  section  table  position  for  output  normalization 
(option  not  used  if  NORPOS«0) 

NORMAT  cross-section  material  number  for  output  normalization 
(0  implies  use  macro  cross  section  set;  negative  implies 
do  not  use  density  factor  in  normalization) 

-  60  — 

MSTMAX  maximum  number  of  M-sets  (0  implies  JM  sets  allowed) 

NEGFIX  negative  scattering  source  fixup  (default  =  -1)  0 
0  option  not  used 

1  full  source  fixup  used 

2  initial  fixup  used 
-1  economy  fixup  used 

LOCOBJ  fast  memory  objective  into  which  problem 
will  try  to  fit  0 
IBM:  no  effect 

CRAY:  fast  memory  objective,  words*1000 
(0  implies  use  default) 

LCMOBJ  slow  memory  objective  into  which  problem 
will  try  to  fit  0 

CRAY  CTSS:  sequential  file  size,  kwords 
(0  implies  use  of  system  default) 

NKEYFX  length  of  key  fluence  arrays  (29$,  30$)  0 

(0  bypasses  feature,  negative  causes  print  only  at 
convergence  or  iteration  limit  for  each  group) 

-  65  — 

NCNDIN  maximum  user  condition  code  allowed  (default  =  4) 

NEUT  last  neutron  group  number  (0  implies  NEUT  =  IGM) 

E  (terminate  array  with  "E") 


63*  Array  -  Real  Control  Parameters  (length  subject  to  change) 

TMAX  maximum  minutes  of  CPU  time  for  this  problem  (0  ignored)  0 
XNF  value  to  which  source  is  normalized  (0  ignored  if 
KTYPE  “  0,  otherwise  0  implies  XNF  *  1.0) 

EPS  eigenvalue  convergence  criterion  (source  iterations) 

(default  -  l.OE-4)  @ 

EPP  pointwise  fluence  convergence  criterion 

(fluence  iterations)  (negative:  source  iterations  can 
halt  without  meeting  EPP)  (default  -  l.OE-3)  0 
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EPV 


volumetric  fluence  convergence  criterion 
(fluence  iterations)  @ 


.  5  — 

EPF  Pointwise  fission  convergence  criterion 
(default  -  l.OE-3)  0 

EKOBJ  k-effective  sought  in  search  (KTYPE  >  1)  or  initial 
k-effective  (KTYPE  «  1  )  (default  =  1.0)  0 
EVTH  k-effective  convergence  ratio  (default  =  0,2)  0 
EVCHM  maximum  EV  change  ratio  per  iteration  (default  =  1.5)  0 

EVMAX  maximum  EV  change  ratio,  overall  (default  =  10.0)  0 

-  10  — 

EVKMX  maximum  allowed  ] k-effective  -  EKOBJ 1  (default  *  1.0)  @ 
EVI  initial  eigenvalue  (default  =  1.0)  0 
OEVDKI  initial  eigenvalue  slope  (default  =  -1.0)  0 
EVDELK  initial  eigenvalue  increment  (default  =  0.3)  0 
SORMIN  maximum  source  iteration  acceleration  (default  =  10.0)  0 

-  15  — 

CONACC  fluence  acceleration  acceptance  criterion  (default  »  1.0) 
CONSCL  fluence  acceleration  convergence  criterion 
(default  -  l.OE-4)  0 

CONEPS  fluence  acceleration  convergence  ratio  (default  =  0.01) 
WSOLOI  reserved  (enter  0) 

WSOLII  fluence  acceleration  damping  increment  (default  =  -1.5) 
(negative  indicates  use  only  as  required) 

-  20  — 

WSOLCN  fluence  acceleration  damping  constant  (default  =1.5) 

ORF  diffusion  theory  fluence  acceleration  factor 

(default  -  0.6) 

FSNACC  reserved  (enter  0) 

FLXMIN  minimum  fluence  for  convergence  tests 

(default  -  l.OE-60)  0 
SMOOTH  reserved  (enter  0) 

-  25  — 

EPO  source  iteration  fluence  convergence  criterion  0 
EXTRCV  source  iteration  extrapolation  convergence  criterion  0 
(default  «  0.2) 

THETA  theta-weighted  extrapolation  model  parameter 

(default  -  0.9) 

E  (terminate  array  with  "E") 

T  (terminate  block  with  "T")  [T  always  required] 


INPUT  DATA  BLOCK  2 


Primary  Dimension-Setting  Arrays  (Omit  arrays  not  needed) 

71$  Array  ISET(J)  (#  -  JM)  [IM  <  0] 

Index  of  radial  mesh  set  to  use  at  each  J  level, 
(default  ■  Set  1) 

72$  Array  IMBIS(ISET)  (#  -  OM)  [IM  <  0] 

Number  of  intervals  in  each  I  set; 
then  fill  array  with  O's. 

73$  Array  MMBMS(MSET)  (#  »  MSTMAX)  [MM  <  0] 

Number  of  directions  in  each  M  set; 
then  fill  array  with  O's. 

74$  Array  ISZNG(IG)  (#  »  IGM)  [MM  <  0) 

Super  group  number  by  group 
(default  »  a  single  supergroup) 

75*  Array  SZNBZ(JSZ)  (#  -  JM)  [MM  <  0  or  KTYPE  >  1] 

J  super  mesh  boundaries 

Enter  as  many  boundaries  as  desired.  Then  fill  with  0. 
(default  *  a  single  superzone) 

76*  Array  SZNBR(ISZ)  (#  »  |IMl)  [MM  <  0  or  KTYPE  >  1] 

I  super  mesh  boundaries 
Enter  as  in  75* 

77$  Array  ISCTG(IG)  (#  -  IGM)  [ISCTM  <  0] 

Order  of  Legendre  expansion  used  in  calculation 

78$  Array  NSIG(MT)  (#  -  MTM)  [MCR  <  0] 

Order  of  Legendre  expansion  of  cross  section  sets 

T  (terminate  block  with  "T")  [T  always  required] 


From  these,  the  following  are  determined: 


MGSZN  -  largest  super  group  number  [1  if  MM  >  0] 

NJSZN  »  number  of  J  super  zone  boundaries  [1  if  MM  >  0] 

NISZN  -  number  of  I  super  zone  boundaries  [1  if  MM  >  0] 

ISM  -  #  non-zero  entries  in  72$  [1  if  IM  >  0] 

MSM  -  #  non-zero  entries  in  73$  [I  if  MM  >  0] 

IMSISM  -  sum  of  IMBIS,  all  I  sets  [IM  if  IM  >  0] 

MMSMSM  -  sum  of  MMBMS,  all  M  sets  [MM  if  MM  >  0] 

IMSJM  -  sum  of  IMBIS(ISET(J)),  all  J  [IM*JM  if  IM  >  0] 
IMA  -  |IM| 
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MMA  -  |MMl 

MMSIMS  -  MMA*IMA 

MMSJM  - 

IHP  -  IHM  +  1  if  IHS  >  IHT  +  1;  otherwise  »  IHM 


INPUT  DATA  BLOCK  3 


Secondary  Dimension-Setting  Arrays  (Omit  arrays  not  needed) 

81*  Array  W(M,MSET)  (#  »  MMSMSM) 

Directional  weights 

82*  Array  EMU(M,MSET)  (#  -  MMSMSM) 

fi,  cosine  of  angle  with  X  or  R  direction 

83*  Array  ETA(M,MSET)  (#  -  MMSMSM) 

r,  cosine  of  angle  with  Z  or  0  direction 

84$  Array  IZNRG(IZ)  (#  =  IZM)  [IRED  0  or  lACT  /  0] 

Region  number  by  zone  (default  controlled  by  value  of 
IRED,  one  region  per  zone  if  IRED*IZM,  0,  or  -1;  one 
region  if  IZM  «  1;  otherwise  IZNRG  must  be  specified 
in  full) 

85*  Array  ZCMB(JC)  (#  *  JM) 

J  coarse  mesh  boundaries 

Enter  as  many  boundaries  as  desired  up  to  the  limit,  JM. 
Then  fill  with  any  number  at  least  as  large  as  the  last  J 
fine-mesh  boundary,  (default  »=  1  course  mesh  for  each 
interval ) 

86*  Array  RCMB(IC)  (#  =  IMA) 

I  coarse  mesh  boundaries,  as  in  85* 

87$  Array  IJGSZ(ISZ,JSZ, IGSZ)  (#  -  NISZN*NJSZN*NGSZN)  [MM  <  0] 

M  set  by  I  super  mesh, 
then  by  J  super  mesh, 
then  by  super  group 

T  (terminate  block  with  "T")  [T  always  required] 


From  these,  the  following  are  determined: 


JCM  -  #  of  coarse  mesh  boundaries  entered  in  the  ZCMB  array 

ICM  =  #  of  coarse  mesh  boundaries  entered  in  the  RCMB  array 

NREG  *  maximum  of  IZNRG(IZ)  array 

ICMJCM  -  I CM* JCM 

ICPJCP  -  (ICM  +  1)*(JCM  +  1) 
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INPUT  DATA  BLOCK  4 


General  Input  Arrays  (Omit  arrays  not  needed) 

1*  Array  CHI(IG)  fission  spectrum  fractions,  X,  by  group  (#  *  IGM) 

2*  Array  ZIN(J)  Z  or  0  fine-mesh  boundaries  (#  -  JM  +  1) 

3*  Array  DNIJ(I,J)  density  factor  (#  -  IMSJM)  [IDFAC  >  0] 

(default  »  1.0) 

4*  Array  RIN(I,ISET)  X  or  R  fine-mesh  boundaries 
(#  -  IMSISM  +  ISK) 

5*  Array  ENER(IG)  top  neutron  energy  group  boundaries  +  bottom 
energy  of  last  neutron  group  +  top  photon  energy  group 
boundaries  +  bottom  energy  of  last  group  (#  =  IGM  +  2) 
[NTFOG  >  0]  0 

6*  Array  DB2Z(IG,IZ)  DB^  by  group,  then  by  region 
(#  «=  IGM*NREG)  [IFDB2Z  >  0] 

7$  Array  ITHYG(IG)  theory  by  group  (#  -  IGM)  [IGTYPE  >  0]  0 

8$  Array  IJZN(I,J)  material  zone  by  fine  space  mesh  (#  -  IMSJM)  0 

9$  Array  IZMT(IJZN)  material  number  by  material  zone  (#  =  IZM) 

10$  Array  MIXT(MIX)  mixture  ID  (#  -  MIXL) 

11$  Array  NUCL(MIX)  nuclide  ID  (#  -  MIXL) 

12*  Array  DENS(MIX)  number  density  (#  -  MIXL) 

13$  Array  MATL(MT)  ID  number  by  material  (#  =  MTM) 

(default  MATL(MT)  -  MT) 

14*  Array  ZNTSR(JNTSR)  Z  or  0  boundary  positions  for  J-boundary 
source  input  (#  ■  NJNTSR) 

15*  Array  RNTSR(INTSR)  X  or  R  boundary  positions  for  I -boundary 
source  input  (#  -  NINTSR) 

16*  Array  ZNTFX(JNTFX)  Z  or  0  boundary  positions  for  J-boundary 
fluence  output  (#  -  NJNTFX) 

17*  Array  RNTFX(INTFX)  X  or  R  boundary  positions  for  I -boundary 
fluence  output  (#  -  NINTFX) 

18*  Array  FJSRZ(JSZN)  J-Super  zone  search  fraction  (#  *  NJSZN)  0 
[KTYPE  -  4] 


19*  Array 

20*  Array 

21*  Array 

22*  Array 

23*  Array 

24*  Array 

25$  Array 

26$  Array 

27*  Array 
28$  Array 

29$  Array 

30$  Array 


FISRZ(ISZN)  I-Super  zone  search  fraction  (# 
[KTYPE  -  4] 


ABDOL(I6,0)  left  boundary  albedo  (#  = 
[IBL  =  5] 


ABD0R{IG,J)  right  boundary  albedo  (#  =  IGM*JM) 
[IBR  =  5] 


ABD0B(IG,I)  bottom  boundary  albedo  (#  =  IGM*IMA) 

[IBB  =  5] 

ABD0T(IG,I)  top  boundary  albedo  (#  =  IGM*IMA) 

[IBT  =  5] 

EPSBZ{IZ)  fluence  error  importance  by  material  zone 
(#  =  IZM)  [if  lEPSBZ  >  0]  @ 

ICMAT{IAC)  material  to  be  used  in  activity  calculations 
(#  =  |IACT|)  @ 

ICPOS(IAC)  cross  section  table  position  for  activity 
(#  =  [lACTD  @ 

ACMUL(IAC)  activity  multiplier  (#  *  |IACT|)  P 

ITMBG(IG)  initial  iteration  limit  by  group  (#  =  IGM) 
[IFXMI  <  0]  0 

KEYAJ(NKEY)  J  positions  of  key  fluences  in  ascending 
order  (#  =  |NKEYFX|)  0 

KEYAI(NKEY)  I  positions  of  key  fluences  in  ascending 
order  for  like  J  (#  »  |NKEYFX|)  0 


T  (terminate  block  with  "T")  [T  always  required] 


INPUT  DATA  BLOCK  5 


External  Boundary  Source  Input 

[required  if  INGEOM  <  20  and  IBL,  IBR,  IBB,  or  IBT  =  4] 

91*  Array  SII{M,J)  (#  =  MMA*JM)  [IBL  =  4  or  IBR  =  4] 

I  boundary  source  for  a  group 

92*  Array  SJI(M,I)  (#  =  MMA*IMA)  [IBB  =  4  or  IBT  =  4] 

J  boundary  source  for  a  group 


(terminate  block  with  "T")  [T  required  if  any  arrays  are  required] 
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Left  and  right  sources  are  intermingled  in  the  same  array  according  to 
direction.  If  >  0,  the  source  applies  to  the  left  boundary;  if  /x  <  0, 
to  the  right.  Likewise,  if  r  >  0,  a  J-boundary  source  applies  to  the 
bottom;  if  t  <  0,  the  source  applies  to  the  top  boundary.  If  any 
blocks  of  this  type  are  required,  IGM  are  required. 

If  lADJ  >  0,  the  energy  groups  must  be  entered  in  reversed  order.  Omit 
block  and  delimiter  if  INGEOM  >  20,  or  if  no  arrays  are  required. 


INPUT  DATA  BLOCK  6 


Fluence  Guess  Input  [required  if  INPFXM  >  0] 

93*  Array  FIJ(I,J),  FIJ(I.J)  or  FI(I)  as  INPFXM  =  1,  2,  or  3 
(#  =  IMSJM  ,IMSJM,  or  IM)  [INPFXM  >  0] 

94*  Array  FJ(J)  (#  =  JM)  [INPFXM  =  3] 

95*  Array  FG(IG)  (#  =  IGM)  [INPFXM  >  1] 


Note:  Each  array  of  this  block  must  be  followed  by  "T”.  If  no 

arrays  are  required,  no  "T”  is  required.  If  lADJ  >  0,  energy 
groups  must  be  specified  in  reversed  order. 


INPUT  DATA  BLOCK  7 


Distributed  Source  Input  [required  if  INPSRM  >  0] 
96*  Array  as  93*  Array  above 

97*  Array  as  94*  Array  above 

98*  Array  as  95*  Array  above 


4.5  DORT  INPUT  DATA  NOTES 


4.5.1  Special  Geometry  Features 

If  INGEOM  >  10,  a  one-dimensional  problem  will  be  solved  with  vertical 
flow  suppressed.  Use  void  boundary  condition  at  top  and  bottom.  RZ 
direction  sets  must  be  used  with  INGEOM  =  11,  while  Re  sets  must  be  used 
with  INGEOM  =  12.  Solutions  with  INGEOM  =  11  or  12  yield  essentially 
the  same  result. 
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If  INGEOM  -  20,  KTYPE  -  0,  and  IBR  -  4,  a  combined 
reflection/transmission  problem  in  slab  geometry  is  solved.  Omit  the 
91*  and  92*  array  blocks,  and  supply  the  input  spectrum  as  CHI.  The 
code  will  generate  a  boundary  source  in  the  leftmost  direction  of  non¬ 
zero  weight  of  each  downward  q  level.  The  value  of  JM  must  be  the 
number  of  downward  i?  levels.  In  this  case,  J  corresponds  to  the 
incident  i?  level,  not  to  a  Y-direction  mesh.  The  2*  array  should  be 
filled  with  the  values  0.0,  1.0,  2.0,  ...  JM.  The  first  i?  level  will 
correspond  to  the  last  J  level.  |CHI(I6M)|  particles  will  enter  each 
level  in  each  group.  If  CHI(I)  <  0,  the  emerging  fluence  is  printed  by 
direction,  then  by  space  interval. 

If  INGEOM  =  30,  the  calculation  proceeds  as  with  INGEOM  =  20,  except 
that  emerging  fluence  will  be  calculated  for  a  source  entering  each 
group  JDIRF  <  IGI  <  JDIRL  in  turn,  and  leaving  in  all  groups  IGI  <  IGO  < 
IGM.  The  total  source  per  group  in  each  J-level  is  |CHI(IGI)|.  If  CHI 
<  0,  the  fluence  from  sources  entering  that  group  will  be  printed.  The 
problem  is  "double  differential,"  in  that  the  fluence  leaving  each  group 
resulting  from  a  source  in  each  individual  input  group  is  calculated. 

If  3  <  INGEOM  <  6,  and  if  all  iterations  are  to  be  performed  in 
diffusion  theory,  equilateral -triangular  geometry  is  available. 

Geometry  options,  together  with  the  required  value  of  IM,  are: 


INGEOM  TRIANGULAR  GEOMETRY  OPTION  VALUE  OF  IM 


3  180* -360*  Symmetry 

4  60*  Symmetry 

5  (not  operable)  90*  Symmetry 

6  120*  Symmetry 


User's  option 
2*JM-1 
2*JM+1 
2*JM 


The  resulting  geometry  is  illustrated  in  Figure  4-1. 

The  mesh  input  data  involve  certain  unusual  requirements.  In  most 
cases,  the  value  of  IM  is  a  function  of  JM  as  shown  above.  Also,  the 
radial  dimensions  used  for  input  do  not  correspond  directly  to  the 
actual  dimensions  of  the  mesh.  For  all  but  90*  symmetry,  every  mesh 
interval  is  an  equilateral  triangle  with  sides  having  a  length  S. 


4-28 


ORNL/DWG  82-12460 


INGEOM  SYMMETRY 

3  180-360 

4  60 

6  120 


Figure  4-1. 


Triangular  Geometry  Options. 


JM  +  1  J-interval  boundaries  are  entered,  beginning  with  0,  and  with 
spacing  73  S/2.  With  120*,  180*,  or  360*  symmetry,  IM  +  1  I-interval 
boundaries  are  entered,  beginning  with  0,  and  with  spacing  S/2.  With 
60*  symmetry,  the  code  will  automatically  set  IM  to  negative,  and 
require  the  entry  of  JM  I-sets.  The  jth  I-set  has  2j  boundaries  with 
spacing  S/2.  The  description  applicable  to  90*  symmetry  is  not 
available. 

For  all  cases,  the  (1,1)  mesh  interval  is  a  triangle  with  vertex  down. 
Example  meshes  are  shown  for  the  various  triangular  geometry  options. 

For  60*  symmetry,  the  parameter  ISBT  should  be  set  equal  to  JM,  and  the 
bottom  boundary  condition  must  be  reflected.  For  120*  symmetry,  the 
left  and  bottom  boundaries  must  be  periodic  if  periodic  boundary 
conditions  are  selected. 
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4.5.2  Special  Theory  Options 

If  I6TYPE  >  0,  then  the  first  IGTYPE  outer  Iterations  will  be  performed 
using  alternate  theory  specified  by  group  in  the  7$  array.  If  the  gth 
entry  is  N,  then  the  first  (Ngl  inner  iterations  of  the  first  IGTYPE 
outer  iterations  on  group,  g,  will  be  performed  using  diffusion  theory 
if  N,  >  0.  If  I  Ngl  is  less  than  the  applicable  maximum  number  of 
iterations,  the  iterations  will  be  completed  in  transport  theory,  even 
though  the  alternate  theory  may  have  achieved  convergence. 


4.5.3  Cross  Section  Input  and  Hixing 

The  internal  cross  section  storage  comprises  MTM  sets  of  cross  sections 
for  each  energy  group.  The  first  MTP  sets  are  read  from  logical  unit 
NTSIG,  which  is  always  required.  The  remainder  are  prepared  using  a 
"mixing  table,"  described  below.  [It  is  intended  that  the  first  MTP 
"materials"  will  be  microscopic  nuclide  data,  and  the  remainder  will  be 
macroscopic  mixtures,  although  other  uses  are  possible.]  The  material 
numbers  entered  in  the  IZMT  array  (9$)  must  be  integers  between  1  and 
MTM,  corresponding  to  the  appropriate  data. 

Each  material  consists  of  IMP  cross  sections  as  indicated  in  the 
description  of  the  OROOSW  input  file.  If  ISCTM  >  0,  then  ISCTM  sets  of 
Legendre  expansion  data  must  follow  each  set  designated  in  the  IZMT 
array.  If  MCR  <  0,  then  the  required  number  of  expansion  sets  is 
indicated  in  the  NSIG  array  (78$)  (this  feature  is  not  presently 
operable) . 

If  MIXL  >  0,  cross  sections  are  to  be  modified  by  a  mixing  table, 
specified  by  the  MIXT,  NUCL,  DENS,  and  MATL  arrays  (10$,  11$,  12*,  and 
13$).  The  MATL  array  assigns  an  arbitrary  ID  number  to  each  material. 

If  it  is  not  entered,  the  ID'S  1,2, . ,MTM  are  assumed.  Each  integer 

entered  in  the  MIXT  and  NUCL  arrays  must  be  one  of  these  ID'S,  or  0.  In 
the  following: 

m  -  number  of  the  material  having  ID  |p|  if  p  /  0;  otherwise  0 
n  «  number  of  the  material  having  ID  |q|  if  q  /  0;  otherwise  0 
and  the  interpretation  of  the  table  is  as  follows; 


MIXT  NUCL  DENS 


p  q  d 


(a)  If  q  *  0,  then  the  data  of  material  m  will  be  multiplied  by  d. 

(b)  If  q  >  0,  then  the  data  of  material  n,  multiplied  by  d,  will  be 

added  to  that  of  material  m. 
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(c)  If  q  •>  p,  the  data  of  material  m  will  be  modified  by  the 

eigenvalue  in  concentration  searches. 

(d)  If  p  <  0,  the  appropriate  Legendre  expansion  components  will  be 

treated  as  was  the  principal  set. 

Each  set  of  entries  is  executed  in  sequence.  In  searches,  the  table  may 
bfc  executed  repeatedly.  As  an  example,  with  MIXL  -  6,  MTM  -  11,  and 
ISCTM  -  3. 


I 

MIXT 

NUCL 

DENS 

MATL 

1 

1000 

0 

0 

10 

2 

1000 

10 

.1 

20 

3 

1000 

20 

.2 

30 

4 

1000 

1000 

0 

40 

5 

-2000 

0 

0 

50 

6 

-2000 

30 

.3 

60 

7 

8 
9 

10 

11 


1000 

2000 

3000 

4000 

5000 


Material  7  will  consist  of: 

Material  1  *  .1  +  material  2  *  .2 
and  will  be  modified  by  the  eigenvalue. 

Materials  8,  9,  10,  11  will  be: 

Materials  3,  4,  5,  and  6  *  .3. 

Although  the  value  of  a*'  does  not  affect  the  fluence  in  a  calculation 
directly,  it  must  be  used  to  obtain  correct  balance  tables.  It  should 
meet  the  condition: 


If  a^(g)  is  replaced  by  a  "transport  cross  section"  in  reactor  core 
problems,  a  must  be  (jg.g,  reduced  such  as  to  maintain  a*  constant. 

It  may  be  important  to  note  that  many  standard  cross  section  files  such 
as  ISOTXS  and  MATXS  have  Legendre  expansion  data  which  must  be 
multiplied  by  2/  +  1,  where  /  is  the  expansion  index,  for  use  in  DORT. 
It  is  intended  that  this  be  done  in  the  code  which  prepares  the  ORDOSW 
(or  optional  GIP  input  file). 
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4.5.4  Activity  Edits 


A  very  general  provision  for  obtaining  energy- Integrated  reaction  rates 
Is  provided.  The  arrays  ICMAT,  ICPOS,  and  ACMUL  define  an  "activity 
table,"  Interpreted  as  follows: 

ICMAT  ICPOS  ACMUL 

r  s  t 


A,J  -  t  CiJ,r,s  <f>g,},t  crj,r,a 

9 

■Bz  =  52 

•j 

where 

1,j  -  space  mesh  Indices 

I-  energy  group  Index 
r|  «  material  number 

s|  «  cross  section  table  position  number 
t  ■  arbitrary  multiplier 

d  ■  density  factor  If  used,  else  1 

♦  ■  fluence 

<7  ■  cross  section 

C  -  the  "number  density"  of  material  |r|  in  space  cell  1,j 

X  ■  1  if  cell  i,j  Is  In  edit  region  Z,  else  0 

The  value  of  C  is  determined  as  follows: 

(a)  If  r  is  the  macro  material  used  In  cell  i,j,  then  C  -  1, 

(b)  If  r  is  0,  then  C  -  I,  and  the  cross  sections  for  the  macro 

material  In  material  in  cell  1,j  are  used, 

(c)  If  r  <  0,  then  C  -  I, 

(d)  If  r  >  0  and  Is  not  the  macro,  then  C  is  the  sum  of  all 

assignments  of  r  to  the  macro  according  to  the  mixing 

table.  Suppose  I ACT  -  4  and  the  following  table  is 
entered,  referring  back  to  the  mixing  table  illustrated 
above;  and  suppose  material  7  is  named  as  a  macro  in  a 
portion  of  the  problem: 


I  ICMAT  ICPOS 


1  7  3 

2  -7  3 

3  0  4 

4  1  5 

5  I  -5 


ACMUL 


I. 

I. 

500. 

1. 

I. 
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Activity  1  will  use  position  3  of  material  7,  but  will  be  0  where  7  is 
not  the  macro.  Activity  2  will  be  similar,  but  will  be  calculated 
whether  7  is  the  macro  or  not.  Activity  3  will  use  position  4  of  the 
macro  in  each  space  cell,  and  will  multiply  the  result  by  500.  Activity 
4  will  use  position  5  of  material  1  and  a  "number  density"  of  .1 
wherever  7  is  the  macro,  since  .1*  material  1  was  added  to  material  7  in 
the  mixing  table. 

As  a  special  feature,  if  |s|  >  IHP,  then  the  value  of  CHI  (1*)  for  the 
group  will  be  used  to  replace  <t,  and  c  and  d  will  be  everywhere  1.  This 
can  be  useful  in  adjoint  problems. 

If  s  <  0,  the  activity  will  be  written  on  the  punch  data  set.  This  can 
be  used  for  fission  density  output,  for  example,  as  in  Activity  5  of  the 
illustration. 


4.5.5  Negative  Source  Removal 

Any  problem  using  ISCTM  >  0  may  incur  negative  source  generation.  This 
is  simply  due  to  the  failure  of  a  truncated  expansion  to  describe  the 
cross  section  adequately.  If  the  problem  has  no  areas  of 
monodirectional  flow  or  void,  this  effect  will  probably  not  be  noticed, 
and  will  usually  cause  no  harm.  Voids  or  monodirectional  flow,  however, 
can  result  in  severe  distortions,  or  even  negative  scalar  values  for  the 
fluence.  The  NEGFIX  >  0  option  will  remove  these  distortions  in  most 
cases.  The  penalty  in  CPU  time  is  usually  in  the  range  of  15-30%, 
although  it  can  be  higher  if  a  major  portion  of  the  problem  is  so 
affected. 


4.5.6  Problem  Type  Specification 


Five  major  types  of  calculation  are  available,  chosen  by  KTYPE: 


KTYPE  =  0 

-  1 

-  2 

-  3 

-  4 


M  calculation  -  fixed  source  or  subcritical  multiplication 
K  calculation  -  determines 
B  search  -  modify  DB^  to  produce  specified 
C  search  -  modify  concentrations  to  produce  specified 
D  search  -  modify  dimensions  to  produce  specified  K^ff 


When  KTYPE  «  0  and  CHI  «  0  (1*  array)  or  NOFIS  =  2,  a  simple  fixed- 
source  problem  is  solved.  Fluence  from  the  input  source  is  determined 
in  one  source  iteration  unless  upscatter  cross  sections  are  used. 
Upscatter  requires  ISRMX  >  1  and  EPO  >  0  for  satisfactory  results. 


If  some  values  of  CHI  ¥  0  and  NOFIS  ¥  2,  fissions  resulting  from  the 
fixed  source  and  the  input  fluence  guess,  if  any,  are  calculated  in  the 
first  source  iteration.  These  are  added  to  the  fixed  source  to  begin 
the  second  iteration,  and  so  on  until  subsequent  fission  generations 
have  been  accounted  for.  Since  these  subcritical  multiplication 
problems  tend  to  be  slowly  convergent,  source  iteration  acceleration. 
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discussed  elsewhere,  is  used.  If  the  system  is,  by  itself, 
supercritical,  this  calculation  will  surely  fail;  a  reflection  of  the 
fact  that  the  fluence  would  be  divergent  in  such  a  physical  situation. 
The  number  of  fission  neutrons  produced  per  source  neutron  is  determined 
by  iteration.  Several  source  iterations  are  required.  When  KTYPE  ■  1, 
a  calculation  of  K*ff  is  performed.  Acceleration  of  the  source 
iterations  is  discussed  elsewhere. 

K  calculations  can  be  improved  somewhat  be  setting  EVI  equal  to  the 
best-available  estimate  of  K.  This  is  especially  important  in  the  case 
of  restarts. 

When  KTYPE  >  1,  properties  of  the  system  configuration  are  changed  in 
order  to  drive  K^ff,  calculated  as  described  above,  to  a  specified 
value,  EKOBJ.  For  each  configuration,  the  value  of  is  partially 
converged,  the  configuration  is  changed,  and  the  process  continues  until 
Kgff  has  stabilized  and  it  is  near  the  objective  value.  Additional 
details  of  this  process  are  given  in  another  section. 


4.5.7  Iteration  Limits  and  Convergence 

In  general,  source  iterations  will  be  performed  until  the  time  TMAX  is 
exceeded  (IXX  -  8),  the  iterations  limit  ISRMX  is  exceeded  (IXX  -  1),  or 
convergence  is  reached.  Source  iteration  convergence  has  not  been 
reached  if: 

(IXX  •  2)  the  problem  uses  diffusion -theory  source  iterations 

followed  by  transport  theory,  and  transport  theory  has 
not  begun. 

(IXX  «  3)  the  search  has  not  converged;  i.e.,  KTYPE  >  I, 

EPS  >  0,  and: 


e 


S 


-  EKOBJ 
rn 


>  EPS 


where:  K"  is  the  value  of  K^^f  for  the 
latest  (Nth)  source. 

(IXX  »  4)  iteration  fluence  iterations  for  some  group  have  not 
converged;  i.e.,  EPO  >  0  and: 


c 


F 


4,n. 


N-1 
9 


>  EPO 
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(IXX  -  5)  fission  density  has  not  converged;  i.e.,  EPF  >  0  and: 


c 


D 


>  EPF 


(IXX  -  6)  has  not  converged;  i.e.,  EPS  >  0  and: 


£ 


K 


j^N  _  j^N-l 

rN 


>  EPS 


(IXX  ■  7)  No  source  iterations  have  been  completed. 

The  value  of  IXX  is  printed  at  each  iteration,  together  with  each  of  the 
above  measures  of  convergence. 

In  general,  problems  with  KTYPE  >  0  require  several  outer  iterations  for 
convergence,  while  problems  with  KTYPE  »  0  require  only  1.  In  the 
latter  case,  performing  several  outer  iterations  can  be  very  wasteful. 
Exceptional  cases  are  fixed-source  (KTYPE  «  0)  problems  with  non-zero 
fission  or  with  upscatter.  In  these  cases,  several  outer  iterations  are 
required. 

The  fluence  iteration  limit  for  each  source  iteration  will  be  IFXMI  or, 
if  IFXMI  <  0,  the  groupwise  value  from  input  array  28$.  After  K“  and 
fission  density  have  converged,  the  iteration  limit  is  changed  to  IFXMF 
if  IFXMF  >  0.  Fluence  iterations  proceed  until  the  time  TMAX  is 
exceeded,  the  iteration  limit  is  exceeded,  or  convergence  is  reached. 
Fluence  convergence  has  not  been  reached  if: 

•  Pointwise  fluence  convergence  has  not  been  reached; 
i.e.,  EPP  >  0  and: 


£ 


p 


n 

■■J.g 


<f> 


n  — 1 

».J.g 


ly.,;  >  EPO 


n  -  fluence  iteration  index 

Where  W,-  j  is  the  value  of  the  importance  function  (24*  array)  for  the 
position'  i,j  if  lEPSBZ  >  0,  and  otherwise  1.0.  The  largest  for  any 

group  after  the  last  fluence  iteration  is  called  "group  convergence," 
^6 
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•  Volumetric  fluence  convergence  has  not  been  reached; 
i.e.,  EPV  >  0  and: 


E  \<i., 


E  * 


n 


>  EPV 


Fluences  less  than  FLXMIN  are  not  considered  in  the  tests.  This 
prevents  values  near  zero,  which  are  badly  affected  by  roundoff,  from 
thwarting  convergence.  FLXMIN  also  is  used  as  a  minimum  coarse-mesh 
fluence  by  the  fluence  acceleration  routines,  preventing  similar 
degeneracy  there. 


4.5.8  Search  Strategy 

The  searches  proceed  by  successive  adjustment  of  the  eigenvalue,  EV.  EV 
is  constrained  to  be  positive,  and  extensive  checks  prevent  oscillation 
and  overextrapolation.  Each  search  seeks  a  value  of  EV  which  adjusts 
to  an  input  value,  EKOBJ.  EV  is  used  to  adjust  the  system 
parameters  as  follows: 


B  search:  {DB^).^^  -  *  EV 

C  search:  (C).,,  -  +  f{EV  -  1)) 

To  adjust  material  m  in  this  way,  an  entry  is  made 
in  the  mixing  table: 

105  11$  12* 

m  m  f 

D  search:  (Ad),ff  -  +  ^(EV  -  1)) 


Here,  d  represents  either  dimension  and  f  is  the 
superzone  search  fraction  input  (18*  or  19*  array) 

The  initial  estimate  of  EV  is  EVl.  Defining  search  convergence  as: 


CONVSR  -  (K*  -  EKOBJ )/K'' 
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and  eigenvalue  convergence  as: 


CVK  =  (K“  -  K‘'-’)/K'‘ 


the  initial  value  of  EV  is  used  until: 


CVK  <  EVTH*max(EPS,min(0.1,C0NVSR)) 


The  second  value  of  EV  is  determined  by  linear  extrapolation  if  EVDELK 
=  0,  using  the  input  value  of  eigenvalue  dependence  on  K,  DEVDKI.  If 
EVDELK  ^  0,  the  second  EV  is: 


EVI  ±  EVDELK 


where  the  sign  of  DEVDKI  is  used  to  determine  the  correct  step 
direction.  Subsequent  values  of  EV  are  obtained  by  nonlinear 
interpolation  if  possible,  and  linear  when  nonlinear  fails. 

Each  new  value  of  EV  is  constrained  to  the  range  between  EV*EVCHM  and 
EV/EVCHM.  EV  is  always  limited  to  the  range  between  EVI*EVMAX  and 
EVI/EVMAX.  If  EV  moves  to  its  limit  and  stays  there,  or  if  K  exceeds 
the  range  between  EKOBJ+EVKMAX  and  EKOBJ-EVKMAX,  the  search  is  stopped 


4.5.9  Upscatter  Rebalance 

If  upscatter  is  present  in  a  problem,  upscatter  rebalance  is  performed 
after  source  iteration  2  and  successive  iterations.  All  fluences  within 
the  upscatter  energy  range  are  multiplied  by  a  factor  DVUPS: 


DVUPS  -  UPSS/(UPSS  -  (UPSP  -  UPS)) 


where:  IGUPS  =  first  group  into  which  upscatter  is  non-zero 
UPS  =  previous  upscatter  sum 
UPSP  *  new  upscatter  sum 
UPSS  =  sum  of  all  scatter  into  groups  >  IGUPS 
from  groups  <  IGUPS 

This  factor  is  applied  to  fluences  for  all  energy  groups  >  IGUPS, 
bringing  the  system  into  global  balance.  This  procedure  is  usually 
helpful,  and  has  not  been  observed  to  cause  erratic  behavior.  The  value 
of  «“  -  DVUPS-1  is  printed  in  the  output  data  as  upscatter  convergence. 
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4.5.10  Fission  Rescaling 

An  approach  analogous  to  upscatter  rebalance  is  used  when  a  fixed  source 
is  used  with  a  multiplying  medium.  In  these  cases,  fluences  for  all 
energy  groups  are  multiplied  by  FSNORM: 


FSNORM  -  FXSUM/(FXSUM  -  (SRNEW  -  FSOLD)) 


where:  FXSUM  *  total  fixed  source 

SRNEW  »  new  fission  source  estimate 
FSOLD  -  previous  fission  source  estimate 

Since  the  upscatter  rebalance  is  applied  before  fission  sums  are 
calculated,  there  is  no  conflict  between  these  procedures,  and  one 
supplements  the  other. 


4.5.11  Fission  Extrapolation 

After  these  rebalance  and  rescaling  procedures,  a  feature  is  provided  to 
use  a  fixed  fission  acceleration  factor: 


(FSNIJ)„,,,p  «  (FSNIJ),,,,  +  f[(FSNIJ),.,,  -  (FS0IJ)„.,«,] 


where:  FSNIJ  «  new  fission  distribution 

FSOIJ  -  previous  fission  distribution 

f  =  FSNACC,  an  input  parameter,  adjusted  downward  as 
necessary  to  insure  that  no  fission  value  is  changed 
more  than  20% 

No  extrapolation  of  fluences  is  attempted  with  this  procedure.  Tests 
have  shown  that  reasonably  chosen  values  of  FSNACC  speed  the  convergence 
of  certain  problems,  especially  M  calculations,  and  cause  oscillation  in 
others.  Its  use  is  not  generally  recommended.  The  option  of  FSNACC  has 
been  removed  from  DORT. 


4.5.12  Error-Mode  Extrapolation 

To  accomplish  error-mode  extrapolation,  DORT  accumulates  the  sum  FERAH 
and  the  eigenvalue  estimate  x: 

FERAH  =  S|(FSNIJ)„,,.p  -  (FS0IJ)„,,,p| 

X  .  {FERAH)„^  /(FERAH)p,,„-o^ 
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and  an  error-mode  removal  parameter  6: 


0  =  A  /  (  1  -  A) 


When  estimates  of  0  in  three  successive  iterations  are  in  fractional 
agreement  within  EXTRCV,  the  fission  is  extrapolated  according  to: 


(FSNIJ),i^i  .  {FSNIJ)e«r.p  +  e'[(FSNIJ).,,,.p  -  (FS0IJ)„-^i] 


where  0'  is  0  adjusted  so  that  the  fission  density  will  change  by  no 
more  than  |S0RMIN|,  where  SORMIN  is  a  input  value.  The  fluences  are 
similarly  extrapolated  by  the  factor  0',-  with  each  fluence  limited  by 
the  |SORMIN|  ratio. 

Tests  show  this  procedure  to  be  safe  and  effective.  It  is  compatible 
with  upscatter  rebalance  and  can  be  used  together  with  fission 
rescaling. 

If  fission  rescaling  is  not  used,  0,  in  certain  cases,  may  be  100  or 
larger.  In  such  cases,  single-precision  IBM  calculations  may  not  be 
sufficient  to  provide  a  stable  value  of  0,  and  so  the  extrapolation  is 
iot  effective.  Rescaling  may  lower  0  in  such  cases  to  a  manageable 
alue,  i .e. ,  to  25  or  less. 

As  a  counter  example,  if  a  system  is  driven  by  a  source  at  its 
periphery,  the  unmultiplied  fluence  due  to  the  source  is  so  different  in 
shape  from  the  final  fluence  solution  that  fission  rescaling  may  slow  or 
thwart  convergence.  A  negative  value  of  SORMIN  must  be  used  in  such 
cases,  so  that  fission  rescaling  is  disabled. 


4.5.13  Fluence  Iteration  Acceleration 

Five  types  of  fluence  iteration  acceleration  can  be  selected: 


lACC  KALF  Result 


0 

1 

1 

2 

2 


any  Groupwise  rebalance 

0  Diffusion  acceleration,  corner  mesh 

1  Diffusion  acceleration,  centered  mesh 

0  (Conventional)  Partial  current 

rebalance,  J  stabilized 
1  (Conventional)  Partial  current 

rebalance,  9  stabilized 
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Corner-mesh  diffusion  acceleration  (CNRDA)  is  usually  best  for  "normal" 
problems.  High-energy  neutron  groups  in  problems  having  complex 
geometry  may  be  better  solved  by  partial -current  rebalance  (PCR).  The 
choices  of  stabilization  with  PCR  are  of  roughly  equal  merit.  In  the 
case  of  problems  having  two  facing  reflected  or  periodic  boundaries, 
such  as  cell  or  R0  problems,  it  is  often  helpful  to  use  the  coarse-mesh 
feature  to  specify  only  one  interval  in  the  reflected  (or  periodic) 
direction,  and  to  specify  PCR.  (In  such  a  case,  the  code  will  arrange 
one  interval  as  a  default  unless  the  85*786*  array  is  entered 
expl icitly. ) 

All  of  the  fluence  iteration  acceleration  schemes  except  the  groupwise 
rebalance  require  the  performance  of  a  certain  number  of  rebalance 
iterations  after  each  fluence  iteration.  Default  input  parameters 
constrain  this  number  between  4  and  50  (INTSCL  and  ITMSCL).  In  1-D 
problems,  or  if  the  coarse  mesh  has  only  1  interval  in  either  direction, 
INTSCL  =  1  is  appropriate.  In  K  calculations  and  searches,  a  lower 
value  of  ITMSCL  (e.g.,  8)  can  lower  costs.  Within  the  iteration  limits, 
the  iterations  are  terminated  when: 


MAX,j 


4>f<.  - 


<hi<. 


<  CON SC L 


where  K  is  the  iteration  index. 

If  the  upper  iteration  limit  is  reached  without  satisfying  CONSCL,  the 
improved  data  are  accepted  for  use  if  convergence  has  reached  CONACC. 
Otherwise,  unaccelerated  data  are  used. 

It  Is  often  effective  to  make  CONSCL  less  than  EPP  by  roughly  a  factor 
of  10,  and  to  leave  CONACC  at  its  default  value.  Other  combinations  are 
often  used,  however. 

If  IBFSCL  >  0,  rebalance  iterations  are  bypassed  on  the  first  fluence 
iteration  of  the  first  source  iteration.  This  sometimes  saves  CPU  time 
on  very  difficult  problems,  and  sometimes  prevents  certain  types  of 
early  iteration  failure.  On  less  difficult  problems,  especially  those 
using  diffusion  acceleration,  it  may  lower  efficiency  slightly. 

If  WSOLOI  >  0,  fluence  acceleration  will  not  be  performed  on  those 
energy  groups  for  which,  for  all  materials  of  a  problem: 


<  WSOLOI 


This  can  save  unneeded  CPU  effort  without  impairing  convergence  rate. 
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4.5.14  Stabilization 


The  partial -current  rebalance  method  requires  choice  of  a  "stabilization 
factor,"  F.  The  effect  of  this  factor  is  to  adjust  the  rebalance  matrix 
in  such  a  way  as  to  insure  positive  factors  if  F  >  1.0.  The  user  inputs 
an  initial  value,  WSOLCN,  and  an  increment,  WSOLII.  If  WSOLII  >  0,  F  is 
increased  by  WSOLII  after  each  rebalance.  If  WSOLII  <  0,  F  is  increased 
by  [WSOLII]  only  when  incipient  oscillation  is  detected. 

The  choice  of  these  factors  has  a  very  large  effect  on  the  running  time 
of  difficult  problems.  Some  combinations  are  shown  in  Table  4-2.  If 
diffusion  acceleration  can  be  used,  this  difficult  choice  is  avoided. 


Table  4-2. 

Typical  Stabilization  Values 

WSOLCN 

WSOLII 

Comments 

1.0 

0 

Satisfactory  for  many  well-behaved  core 
problems  which  are  probably  better 
solved  by  diffusion  acceleration. 

1.0 

1.0 

Satisfactory  for  many  difficult  fixed- 
source  problems 

4.0 

1.0 

One  solver  of  very  difficult  problem 
uses  this 

1.0 

-1.5 

This  may  be  a  "best-buy"  single  choice. 

4.5.15  Input  Source  and  Fluence  Specification 

For  Kgff  and  configuration  search  problems,  the  initial  source  is 
generated  internally  based  on  the  fission  cross  sections  and  the  fluence 
guess.  For  fixed-source  problems,  the  user  must  supply  an  external 
source  of  particles.  This  can  be  done  by  supplying  an  external  source 
file  containing  an  internal  or  external  boundary  source,  a  distributed 
source,  or  a  first-collision  source.  The  external  boundary  source  and 
distributed  source  can  be  generated  internally  by  card-image  input  in  a 
few  simple  cases.  At  least  one  non-zero  source  type  must  always  be 
suppl ied. 

An  external  boundary  source  is  indicated  by  the  appropriate  choice  of 
boundary  condition.  If  input  parameter  NTBSI  >  0,  the  logical  unit 
NTBSI  is  to  contain  the  information.  Otherwise,  it  is  to  be  found  in 
the  card-image  input.  Formats  for  these  inputs  are  explained  elsewhere 
in  this  region. 
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A  distributed  source  is  to  be  supplied  on  logical  unit  NTDSI  if  NTDSI  > 

0  and  INPSRM  *  0.  If  INPSRM  >  0,  NTDSI  must  point  to  a  scratch  device 
onto  which  a  source  generated  from  card  images  will  be  placed. 

A  first-collision  source  is  to  be  supplied  on  NTFCI  if  NTFCI  >  0.  This 
source  is  simply  a  special  type  of  distributed  source,  and  is  specified 
by  a  special  type  of  distributed  source  file  format.  In  such  a  case, 
the  file  also  gives  the  "uncollided  fluence"  the  scattering  of  which 
will  lead  to  the  source.  This  fluence  is  added  to  the  fluence 
calculated  by  the  code  in  some  of  the  output  results.  (It  is  subtracted 
from  a  fluence  guess  on  NTFLX,  if  any.) 

Internal  boundary  sources  are  indicated  by  NJNTSR  >  0  and/or  NINTSR  >  0. 
In  these  cases,  internal  boundaries  are  specified  in  the  14*  and  15* 
arrays  at  which  sources  input  from  logical  unit  NTIBI  are  located. 

In  principle,  several  types  of  sources  can  coexist.  Little  actual 
experience  is  available  in  these  areas,  however,  and  such  results  should 
be  carefully  checked. 

If  KTYPE  >  0,  a  non-zero  fluence  guess  is  always  required.  If  NTFLX  >  0 
and  INPFXM  =  0,  the  fluence  is  to  be  supplied  on  logical  unit  NTFLX.  If 
INPFXM  >  0,  the  fluence  guess  is  to  be  generated  from  card  images. 
Problems  with  KTYPE  =  0  are  usually  started  without  a  fluence  guess, 
unless  the  problem  has  been  partially  solved  in  a  previous  execution. 


4.5.16  Key  Fluence  Nonitoring 

In  many  cases,  the  convergence  of  all  of  the  fluence  data  is  of  less 
interest  than  convergence  of  one  or  a  few  key  fluences.  If  KEYJN  >  0 
and  KEYIN  >  0,  the  value  of  a  single  key  fluence  will  be  printed  in  the 
fluence-iteration  monitor  line.  If  not,  the  position  of  maximum  fluence 
change  at  the  second  fluence  iteration  will  be  so  monitored.  In 
addition,  an  arbitrary  array  of  key  fluences  can  be  specified  by 
adjusting  NKEYFX.  If  desired,  these  fluences  can  be  printed  only  after 
the  convergence  of  each  energy  group. 


4.5.17  Energy  Boundary  Input 

The  energy  boundaries  are  used  only  for  transfer  to  the  output  files. 
They  may  be  ignored  for  most  applications.  The  ordering  is: 
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Combined  Neutron-Photon 

Neutron 

Only 

Photon 

Only 

EUax 

0 

1 

1 

i 

1 

1 

t 

1 

» 

EMax 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

CMAX 

1 

1 

1 

1 

1 

1 

Ey/ar(]ast  neutron  group) 

^ICM 

cMAX 

^IGM 

cMIN 

t-NEUT 

0 

vMIN 

^IGM 

£*'^i'^(first  photon  group) 


pMAX 

£■/"«( last  photon  group) 


4.5.18  Fluence  Extrapolation  Model 

The  choice  of  mode  can  have  a  important  influence  on  both  CPU  time 
requirements  and  the  accuracy  of  the  solutions.  In  general,  the  0- 
weighted  model  gives  reasonable  results  for  a  wide  range  of  problems. 

The  linear-zero  model  is  similar  to  the  tried-and-proven  method  used  in 
TWOTRAN-II.  It  gives  well -accepted  and  rapid  solutions  to  problems  such 
as  a  reactor  core  not  containing  severe  heterogeneities.  It  will  often 
fail  to  converge  or  give  inaccurate  results  for  difficult  deep 
penetration  problems,  however.  The  ordinary  weighted  model  almost 
always  converges  better  than  the  other  models.  Its  results  are  usually 
not  suitable  for  calculations,  but  it  is  used  exclusively  by  many 
deep-penetration  analysts. 


4-43 


4.5.19  Alternate  Zone  Hap  Input 

An  alternate  "combinatorial -geometry"  option  is  available.  Rather  than 
the  usual  8$  description,  supply  the  following: 


-Zi  ii  h  Ii  Ji 

-Z2  ij  32  I2  J2 

etc. 

F  0 


Each  set  of  five  integers  contains: 


-z:  The  zone  number,  tagged  with  a  negative 

i  1  Indices  of  lower,  lefthand  corner  of  zone  in 
j  zone  map 

I  1  Indices  of  upper,  righthand  corner  of  zone  in 
J  ^  zone  map 


As  many  descriptors  as  required  to  a  limit  of  IMSJM  are  used,  and  the 
remainder  of  the  array  is  filled  with  0.  Zones  can  be  overlaid  as 
desired.  This  type  of  8$  array  must  not  be  intermingled  with  the 
traditional  type  within  a  given  problem.  When  used  with  variable  mesh, 
the  zones  are  understood  to  be  cylindrical  in  space,  although  they  may 
be  discontinuous  in  the  zone  map  printout. 


4.5.20  Notes  On  OORT  Mesh  For  An  Air-Over-Ground  Problem 

When  setting  up  an  air-over-ground  OORT  problem,  both  radiai  and  axial 
mesh  near  the  source  must  be  chosen  to  restrict  1/R^  attenuation  between 
boundaries  to  about  a  factor  of  2.  In  the  sample  problem  given  in 
below,  a  basic  lOO-cm  exclusion  radius  is  used,  and  only  one  interval  is 
needed  within  that.  Then,  mesh  is  chosen  such  that: 

Rj  «  Ro  +  dj.,  (i*l,  2,  . ) 

dj  =  dj.^  +  Ad 

Ad  =  7dj.i  or  in  other  words,  so  that  no  r^  is  more  than 
1+7  times  d,.,.  0  <  7  <  1 

(A  7  of  .3  is  a  good  choice  for  all  air-over-ground  problems.) 
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Table  4-3  shows  the  radial  mesh,  where  R„-0,  do-100,  and  7=0.3.  When 
the  calculated  Ad  exceeds  3000,  3000  should  be  used.  The  same  approach 
is  used  above  the  source,  as  shown  in  Table  4-4.  The  mesh  downward  from 
the  source  (Table  4-5)  is  begun  the  same  way,  but  it  will  meet  the  mesh 
upward  from  the  ground  (Table  4-6). 

The  basic  mesh  upward  from  the  ground  uses  a  larger  value  of  d^,  and 
proceeds  upward  until  the  Ad  it  predicts  is  larger  than  at  predicted  by 
the  downward  mesh.  The  two  sets  are  joined  at  6500  in  this 
illustration,  a  compromise  between  6096  and  6943.  In  the  actual 
problem,  additional  intervals  are  added  below  550  to  account  for  ground 
effects.  A  small  interval  near  the  vehicle  may  be  desired,  also. 

Meshes  for  other  source  heights  can  be  deduced  from  this  illustration. 


Table  4-3.  Radial  mesh 
away  from  source. 


Table  4-4.  Mesh  upward 
from  source. 


R 

Ad 

d 

Z 

Ad 

d 

0 

100 

12,750 

• 

100 

100 

30 

130 

12,850 

30 

130 

130 

39 

169 

12,880 

39 

169 

169 

51 

220 

12,919 

51 

220 

220 

66 

286 

12,970 

66 

286 

286 

86 

371 

13,036 

86 

371 

371 

111 

483 

13,121 

111 

483 

483 

145 

627 

13,233 

145 

627 

627 

188 

816 

13,377 

188 

816 

816 

245 

1,060 

13.566 

245 

1,060 

1,060 

310 

1,379 

13,810 

310 

1,379 

1,379 

414 

1,792 

14,129 

414 

1,792 

1,792 

538 

2,330 

14,542 

538 

2,330 

2,330 

699 

3,029 

15,080 

699 

3,029 

3,029 

909 

3,937 

15,779 

909 

3,937 

3,937 

1,181 

5,119 

16,687 

1,181 

5,119 

5,119 

1,536 

6,654 

17,869 

1,536 

6,654 

6,654 

1,996 

8,650 

19,404 

1,996 

8,650 

8,650 

2,595 

11,246 

21,400 

2,595 

11,246 

11,246 

3,374 

14,619 

23,996 

3,374 

14,619 
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Table  4-5.  Mesh  downward 
from  source. 


z 

Ad 

d 

12,750 

-100 

12,650 

-30 

-130 

12,620 

-39 

-169 

12,581 

-51 

-220 

12,530 

-66 

-286 

12,464 

-86 

-371 

12,379 

-111 

-483 

12,267 

-145 

-627 

12,113 

-188 

-816 

11,934 

-245 

-1,060 

11,690 

-318 

-1,379 

11,371 

-414 

-1,792 

10,958 

-538 

-2,330 

10,420 

-699 

-3,029 

9,721 

-909 

-3,937 

8,813 

-1,181 

-5,119 

7,631 

-1,536 

-6,654 

-6,096 

-1,996 

-8,650 

4,100  -2,595  -11,426 


Table  4-6.  Mesh  upward 
from  ground. 


Z 

Ad 

d 

50 

» 

500 

550 

150 

650 

700 

195 

845 

895 

254 

1,098 

1,148 

330 

1,428 

1,478 

428 

1,856 

1,906 

557 

2,413 

2,463 

724 

3,137 

3,187 

941 

4,079 

4,128 

1,224 

5,302 

5,352 

1,591 

6,893 

-6,943 

2,068 

8,961 

9,011 

2,688 

11,649 

11,699 

3,495 

15.144 

4.6  DORT  INPUT  AND  OUTPUT  FILE  FORMATS 


The  DORT  user  input  and  output  data  files  are  expressed  in  formats 
designed  according  to  recommendations  of  DOE's  Committee  on  Computer 
Code  Coordination  (CCCC).’^  The  particular  files  and  which  format  they 
use  are  listed  in  Section  4.7.  Two  exceptions,  retained  for  backward 
compatibility,  are  an  optional  capability  to  process  a  "GIP"  cross 
section  input  file  and  to  produce  a  "DOT  Angular  Fluence  Tape"  as 
output. 

The  GIP  file  is  defined  exactly  as  the  records  labeled  "CROSS  SECTION 
DATA"  in  the  ORDOSW  file  {of  which  only  the  cross-section  portion  is 
listed),  and  has  no  other  record  types.  The  "DOT  Ill  Angular  Fluence 
Tape"  is  defined  in  the  DOT  III  User's  Manual,’^  and  is  simulated  by 
DORT  as  accurately  as  possible.  The  user  should  consult  Reference  14 
for  the  full  description  of  the  ORDOSW  file. 
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C  -VSOROOlO 
C  VSOR0020 
r***************************************************************\fcnRnn'5n 

C  REVISED  10  NOV  76  -VS0R0040 
C  -VSOROOSO 
CF  VARSOR  -VSOR0060 
CE  VARIABLE  MESH  SOURCE  MOMENT  DATA  -VSOR0070 
C  -VSOROOSO 

Q***********«*****«***«***************4r*********************4t***y3Q|^QQgQ 

C  VSOROlOO 
CD  ORDER  OF  GROUPS  IS  BY  DECREASING  ENERGY  VSOROllO 
CD  I  IS  THE  FIRST-DIMENSION  INDEX  VSOR0120 
CD  J  IS  THE  SECOND-DIMENSION  INDEX  VSOR0130 
CD  JM=1  FOR  1 -DIMENSIONAL  GEOMETRY  VS0R0140 
CD  IF  ISOP.GT.O,  SOURCE  IS  FIRST-COLLISION  TYPE  VS0R0150 
C  VS0R0160 

C . VSOR0170 

CS  FILE  STRUCTURE  -VS0R0180 
CS  -VSOR0190 
CS  RECORD  TYPE  PRESENT  IF  -VS0R0200 

CS  . VS0R0210 

CS  FILE  IDENTIFICATION  ALWAYS  -VSOR0220 
CS  FILE  LABEL  ALWAYS  -VSOR0230 
CS  FILE  CONTROL  ALWAYS  -VSOR0240 
CS  FILE  INTEGER  PARAMETERS  ALWAYS  -VS0R0250 
CS  -VSOR0260 
CS  ************** OVER  ALL  GROUPS)  -VS0R0270 
CS  *  SOURCE  MOMENTS  ALWAYS  -VSOR0280 
CS  ****************  -VSOR0290 
C  -VSOR0300 
CS  ************** (REPEAT  OVER  ALL  GROUPS)  -VSOR0310 
CS  *  SCALAR  UNCOLLIDED  FLUX  ISOP.GT.O  -VSOR0320 
CS  ****************  -VSOR0330 
C  -VSOR0340 

C . VS0R0350 

C  VSOR0360 
C  VSOR0370 

C . VS0R0380 

CR  FILE  IDENTIFICATION  -VS0R0390 
C  -VSOR0400 
CL  HNAME,(HUSE{I),I-1,2),IVERS  -VSOR0410 
C  -VSOR0420 
CW  1+3*MULT=NUMBER  OF  WORDS  -VSOR0430 
C  -VSOR0440 
CD  HNAME  HOLLERITH  FILE  NAME  -  VARSOR  -  (A6)  -VSOR0450 
CD  HUSE(I)  HOLLERITH  USER  IDENTIFICATION  -  {A6)  -VSOR0460 
CD  IVERS  FILE  VERSION  NUMBER  -VSOR0470 
CD  MULT  DOUBLE  PRECISION  PARAMETER  -VS0R0480 
CD  1-  A6  WORD  IS  SINGLE  WORD  -VSOR0490 
CD  2-  A6  WORD  IS  DOUBLE  PRECISION  WORD  -VSOR0500 
C  -VS0R0510 


C . - . VS0R0520 

C  VSOR0530 

C  VSOR0540 

C . - . VSOR5550 

C  -VSOR0560 

CR  FILE  LABEL  -VS0R0570 

C  -VSOR0580 

CL  DATE, USER, CHARGE, CASE, TIME, (TITL(I),I»1, 12)  -VSOR0590 

C  -VSOR0600 

CW  17*MULT-NUMBER  OF  WORDS  -VSOR0610 

C  -VSOR0620 


CD  DATE  AS  PROVIDED  BY  TIMER  OPTIjN  4  -  (A6)  -VS0R0630 
CD  USER  AS  PROVIDED  BY  TIMER  OPTION  5  -  (A6)  -VSOR0640 
CD  CHARGE  AS  PROVIDED  BY  TIMER  OPTION  6  -  (A6)  -VS0R0650 
CD  CASE  AS  PROVIDED  BY  TIMER  OPTION  7  -  (A6)  -VSOR0660 
CD  TIME  AS  PROVIDED  BY  TIMER  OPTION  8  -  (A6)  -VSOR0670 
CD  TITL(I)  TITLE  PROVIDED  BY  USER  -  (AS)  -VS0R0680 


C  -VSOR0690 

C . - . VS0R0700 

C  VSOR0710 

C  VS0R0720 

C . --VSOR0730 

CR  FILE  CONTROL  VS0R0740 

C  -VSORO750 

CD  IGM,NEUT, JM,LM, IMA,MMA, ISM, IMSISM, ISOP, ( IDUM(N) ,N«1 , 16)  -VS0R0760 

C  -VSOR0770 

CW  25*NUMBER  OF  WORDS  -VSOR0780 

C  -VSORO790 

CD  IGM  NUMBER  OF  ENERGY  GROUPS  -VSOR0800 

CD  NEUT  LAST  NEUTRON  GROUP  -VS0R0810 

CD  (IGM  IF  ALL  NEUTRONS,  0  IF  ALL  GAMMA)  -VSOR0820 

CD  JM  NUMBER  OF  SECOND-DIMENSION  (J)  INTERVALS  -VS0R0830 

CD  LM  MAXIMUM  LENGTH  OF  MOMENT  EXPANSION  -VSOR0840 

CD  IMA  MAXIMUM  NUMBER  OF  FIRST-DIMENSION  INTERVALS  -VS0R0850 

CD  MMA  NUMBER  OF  BOUNDARY  DIRECTIONS  -VSOR0860 

CD  ISM  NUMBER  OF  I -BOUNDARY  SETS  -VSOR0870 

CD  IMSISM  TOTAL  NUMBER  OF  I-INTERVALS,  ALL  I-SETS  -VSOR0880 

CD  ISOP  UNCOLLIDED  FLUX  FLAG  -VSOR0890 

CD  0  -  NO  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VSOR0900 

CD  1  -  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VS0R0910 

CD  IDUM(I)  ARRAY  SET  TO  0  -VSOR0920 

C  -VSOR0930 

C . - . VSOR0940 

C  VSOR0950 

C  VSOR0960 

C . VS0R0970 

CR  FILE  INTEGER  PARAMETERS  -VS0R0980 

C  -VS0R0990 

CL  (LMBIG(IG),IG-1,IGM),  -VSORIOOO 

CL  *(IMBIS(IS),IS«1,ISM),(ISET{J),J-1,JM)  -VSORlOlO 

C  -VSOR1020 

CW  IGM+ISM+JM-NUMBER  OF  WORDS  -VSOR1030 
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C  -VS0R1040 

CD  LMBIG(IG)  LENGTH  OF  MOMENT  EXPANSION  FOR  GROUP  IG  -VSOR1050 

CD  IMBIS(IS)  NUMBER  OF  INTERVALS  IN  ISET  IS  -VS0RI060 

CD  ISET(J)  I -SET  ASSIGNED  TO  INTERVAL  J  -VS0R1070 

C  -VSOR1080 

C . VS0R1090 

C  VSORllOO 

C  VSORlllO 

C . VSOR1120 

CR  SOURCE  MOMENTS  VSOR1130 

C  -VSOR1140 

CL  ((SORM{I,L),I=l,IMS),L=l,LMS)  -VSOR1150 

C  -VSOR1160 

CW  IMS*LMS=NUMBER  OF  WORDS  -VS0R1170 

C  -VSOR1180 

C  DO  1  J=1,JM  -VSOR1190 

C  1  READ(N)  *LIST  AS  ABOVE*  -VSOR1200 

C  -VS0R1210 

CD  SORM  SOURCE  BY  INTERVAL  AND  MOMENT  INDEX  -VSOR1220 

CD  IMS  IMBIS(IS)  FOR  IS  CORRESPONDING  TO  J  -VS0R1230 

CD  LMS  LMBIG(IG)  -VS0R1240 

C  -VSOR1250 

C . VSOR1260 

C  VSOR1270 

C  VSOR1280 

C . VS0R1290 

CR  SCALAR  UNCOLLIDED  FLUX  -VS0R1300 

r  .v^nRT^in 

CL  {FLUM{1),I=1,IMS)  -VSOR1320 

C  -VS0R1330 

CW  IMS=NUMBER  OF  WORDS  -VSOR1340 

C  -VSOR1350 

C  DO  1  0-1, JM  -VSOR1360 

C  1  READ(N)  *LIST  AS  ABOVE*  -VS0R1370 

C  -VSOR1380 

CO  FLUX  UNCOLLIDED  FLUX  BY  INTERVAL  -VSOR1390 

C  -VSOR1400 

C . VSOR1410 

C  VSOR1420 

C  VSOR1430 

C  VS0R1440 

C  VS0R1450 

C  END  VS0R1460 

C  -VRFLOOlO 

C  VRFL0020 

Q***************************************************************yppj_QQ3Q 

C  REVISED  10  NOV  76  -VRFL0040 

C  -VRFL0050 

CF  VARFLM  -VRFL0060 

CE  VARIABLE  MESH  FLUX  MOMENT  DATA  WITH  BOUNDARY  FLUXES  -VRFL0070 

C  -VRFL0080 
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£***************************************************************yj^pj^QQgQ 


C 

CD 

CD 

CD 

CD 

C 

C-- 

CS 

CS 


C 

C- 

C 

C 

C- 


C 

C-- 

C 

C 

C-- 

C 

CR 

C 

CL 

C 

CW 

C 


ORDER  OF  GROUPS  IS  BY  DECREASING  ENERGY 
I  IS  THE  FIRST-DIMENSION  INDEX 
J  IS  THE  SECOND-DIMENSION  INDEX 
JM.1  FOR  1 -DIMENSIONAL  GEOMETRY 


FILE  STRUCTURE 


VRFLOlOO 

VRFLOllO 

VRFL0120 

VRFL0130 

VRFL0140 

VRFL0150 

■-VRFL0160 

-VRFL0170 

-VRFL0180 


CS 

CS 

CS 

RECORD  TYPE 

PRESENT  IF 

-VRFL0190 
_ uRci n?nn 

FILE  IDENTIFICATION 

ALWAYS 

-VRFL0210 

CS 

FILE  LABEL 

ALWAYS 

-VRFL0220 

CS 

FILE  CONTROL 

ALWAYS 

-VRFL0230 

CS 

FILE  INTEGER  PARAMETERS 

ALWAYS 

-VRFL0240 

CS 

FILE  REAL  PARAMETERS 

ALWAYS 

-VRFL0250 

CS 

CS 

************** (RPP£/^T  OVER  ALL  GROUPS) 

-VRFL0270 

-VRFL0280 

CS 

* 

FLUX  MOMENTS 

ALWAYS 

-VRFL0290 

CS 

BOUNDARY  DIRECTIONAL  FLUX 

ALWAYS 

-VRFL0300 

CS 

-VRFL0310 

VRFL0320 

•VRFL0330 

VRFL0340 

VRFL0350 

-VRFL0360 


CR 

FILE 

IDENTIFICATION 

-VRFL0370 

C 

-VRFL0380 

CL 

HNAME,(HUSE(I), 1=1,2), IVERS 

-VRFL0390 

C 

-VRFL0400 

CW 

1+3*MULT=NUMBER  OF  WORDS 

-VRFL0410 

C 

-VRFL0420 

CD 

HNAME 

HOLLERITH  FILE  NAME  VARFLM 

{A6) 

-VRFL0430 

CD 

HUSE(I) 

HOLLERITH  USER  IDENTIFICATION  - 

(A6) 

-VRFL0440 

CD 

IVERS 

FILE  VERSION  NUMBER 

-VRFL0450 

CD 

MULT 

DOUBLE  PRECISION  PARAMETER 

-VRFL0460 

CD 

1-  A6  WORD  IS  SINGLE  WORD 

-VRFL0470 

CD 

2-  A6  WORD  IS  DOUBLE  PRECISION  WORD 

-VRFL0480 

FILE  LABEL 

DATE, USER, CHARGE, CASE, TIME, (TITL(I), 1=1, 12) 
17*MUL I -NUMBER  OF  WORDS 


VRFL0490 

■-VRFL0500 

VRFL0510 

VRFL0520 

•-VRFL0530 

-VRFL0540 

-VRFL0550 

-VRFL0560 

-VRFL0570 

-VRFL0580 

-VRFL0590 

-VRFL0600 
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CD  DATE  AS  PROVIDED  BY  TIMER  OPTION  4  -  (A6)  -VRFL0610 

CD  USER  AS  PROVIDED  BY  TIMER  OPTION  5  -  (A6)  -VRFL0620 

CD  CHARGE  AS  PROVIDED  BY  TIMER  OPTION  6  -  (A6)  -VRFL0630 

CD  CASE  AS  PROVIDED  BY  TIMER  OPTION  7  -  (A6)  -VRFL0640 

CD  TIME  AS  PROVIDED  BY  TIMER  OPTION  8  -  (A6)  -VRFL0650 

CD  TITL(I)  TITLE  PROVIDED  BY  USER  -  (A6)  -VRFL0660 

C  -VRFL0670 

C . - . VRFL0680 

C  VRFL0690 

C  VRFL0700 

C . VRFL0710 

CR  FILE  CONTROL  -VRFL0720 

C  -VRFL0730 

CD  IGM,NEUT,JM,LM,IMA,MMA,ISM,IMSISM,ISBT,ITER,(IDUM{N),N=1,15)-VRFL0740 
C  -VRFL0750 

CW  25=NUMBER  OF  WORDS  -VRFL0760 

C  -VRFL0770 

CD  IGM  NUMBER  OF  ENERGY  GROUPS  -VRFL0780 

CD  NEUT  LAST  NEUTRON  GROUP  -VRFL0790 

CD  (IGM  IF  ALL  NEUTRONS,  0  IF  ALL  GAMMAS)  -VRFL0800 

CD  JM  NUMBER  OF  SECOND-DIMENSION  (J)  INTERVALS  -VRFL0810 

CD  LM  MAXIMUM  LENGTH  OF  MOMENT  EXPANSION  -VRFL0820 

CD  IMA  MAXIMUM  NUMBER  OF  FIRST-DIMENSION  INTERVALS  -VRFL0830 

CD  MMA  NUMBER  OF  BOUNDARY  DIRECTIONS  -VRFL0840 

CO  ISM  NUMBER  OF  I -BOUNDARY  SETS  -VRFL0850 

CD  IMSISM  TOTAL  NUMBER  OF  I -INTERVALS,  ALL  I -SETS  -VRFL0860 

CD  ISBT  I -SET  FOR  SYSTEM  BOUNDARIES  -VRFL0870 

CD  ITER  OUTER  ITERATION  NUMBER  AT  WHICH  FLUX  WAS  -VRFL0880 

CD  WRITTEN  -VRFL0890 

CD  IDUM(I)  ARRAY  SET  TO  0  -VRFL0900 

C  -VRFL0910 

C . --VRFL0920 

C  VRFL0930 

C  VRFL0940 

C . VRFL0950 

CR  FILE  INTEGER  PARAMETERS  -VRFL0960 

C  -VRFL0970 

CL  (LMBIG(IG),IG-1,IGM),  -VRFL0980 

CL  *(IMBIS(IS),IS-1,ISM),(ISET(J),J-1,JM)  -VRFL0990 

C  -VRFLIOOO 

CW  IGM+ISM+JM=NUMBER  OF  WORDS  -VRFLIOIO 

C  -VRFL1020 

CD  LMBIG(IG)  LENGTH  OF  MOMENT  EXPANSION  FOR  GROUP  IG  -VRFL1030 

CD  IMBIS(IS)  NUMBER  OF  INTERVALS  IN  ISET  IS  -VRFL1040 

CD  ISET{J)  I -SET  ASSIGNED  TO  INTERVAL  J  -VRFL1050 

C  -VRFL1060 

C . VRFL1070 

C  VRFL1080 

C  VRFL1090 

C . VRFLllOO 

CR  FILE  REAL  PARAMETERS  -VRFLlllO 

C  -VRFL1120 
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CL  (Z(J),J=1,JM1),({R{I,IS),I.1,IM1),IS=1,ISM),  -VRFL1130 

CL  *(ENER( IG) , IG»1 , IGM) , EMIN, ENEUT, EV.DEVDK, EFFK, POWER,  -VRFL1140 


CL  *{DUMRL{T), 1-1,13)  -VRFL1150 

C  -VRFL1160 

CW  JM+IMSISM+ISM+IGM+20=NUMBER  OF  WORDS  -VRFL1170 

C  -VRFL1180 

CD  Z(J)  J-INTERVAL  BOUNDARIES  -VRFL1190 

CD  R(I,IS)  I-INTERVAL  BOUNDARIES  FOR  I-SET  I  -VRFL1200 

CD  ENER(IG)  TOP  ENERGY  BOUNDARY  OF  GROUP  IG  -VRFL1210 

CD  EMIN  BOTTOM  ENERGY  BOUNDARY  OF  GROUP  IGM  -VRFL1220 

CD  ENEUT  BOTTOM  ENERGY  BOUNDARY  OF  GROUP  NEUT  -VRFL1230 

CD  (0  IF  NEUT=0*)  -VRFL1240 

CD  EV  EIGENVALUE  -VRFL1250 

CD  DEVDK  DERIVATIVE  OF  EV  VS.  EFFK  -VRFL1260 

CD  EFFK  EFFECTIVE  MULTIPLICATION  FACTOR  -VRFL1270 

CD  POWER  POWER  (WATTS)  TO  WHICH  FLUX  IS  NORMALIZED  -VRFL1280 

CD  DUMRL  ARRAY  SET  TO  0  -VRFL1290 

CD  JMl  JM+1  -VRFL1300 

CD  IMl  IMBIS(IS)+1  -VRFL1310 

C  -VRFL1320 

C . VRFL1330 

C  VRFL1340 

C  VRFL1350 

C  VRFL1360 

C  VRFL1370 

C . VRFL1380 

CR  FLUX  MOMENTS  -VRFL1390 

C  -VRFL1400 

CL  ((FLUM(I,L),I=1,IMS),L=1,LMS)  -VRFL1410 

C  -VRFL1420 

CW  IMS*LMS=NUMBER  OF  WORDS  -VRFL1430 

C  -VRFL1440 

C  DO  1  J=1,JM  -VRFL1450 

C  1  READ(N)  *LIST  AS  ABOVE*  -VRFL1460 

C  -VRFL1470 

CD  FLUM  FLUX  BY  INTERVAL  AND  MOMENT  INDEX  -VRFL1480 

CD  IMS  IMBIS(IS)  FOR  IS  CORRESPONDING  TO  J  -VRFL1490 

CD  LMS  LMBIG{IG)  -VRFL1500 

C  -VRFL1510 

C . - . VRFL1520 

C  VRFL1530 

C  VRFL1540 

C . -VRFL1550 

CR  BOUNDARY  DIRECTIONAL  FLUX  -VRFL1560 

C  -VRFL1570 

CL  {(FI0(M,J),M»1,MMA),J*1,JM),  ( (FJO(M, I) ,M=1 ,MMA) , 1=1 , IMB)  -VRFL1580 
C  -VRFL1590 

CW  MMA*{JM+IMB)=NUMBER  OF  WORDS  -VRFL1600 

C  -VRFL1610 

CD  FIO  DIRECTIONAL  FLUX  OUTGOING  BY  DIRECTION  AND  -VRFL1620 

CD  J-INTERVAL  -VRFL1630 
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CD  FJO  DIRECTIONAL  FLUX  OUTGOING  BY  DIRECTION  AND  -VRFL1640 

CD  I -INTERVAL.  FJ0=0  FOR  A  1-D  GEOMETRY  -VRFL1650 

CD  IMB  IMBIS{IS)  FOR  IS  CORRESPONDING  TO  ISBT  -VRFL1660 

C  -VRFL1670 

C . - . VRFL1680 

C  VRFL1690 

C  VRFL1700 

C  VRFL1710 

C  VRFLI720 

C  END  VRFL1730 

C  -BNDSOOlO 

Q***************************************************************g^QJQQ2Q 

C  PROPOSED  8  OCT  76  -BNDS0030 

C  -BNDS0040 

CF  BNDRYS  -BNDS0050 

CE  MULTIPLE  BOUNDARY  SOURCE  DATA  -BNDS0060 

C  -BNDS0070 

^***************************************************************gJ^QJQQQQ 

C  BNDS0090 

CD  ORDER  OF  GROUPS  IS  BY  DECREASING  ENERGY  BNDSOlOO 

CD  I  IS  THE  FIRST-DIMENSION  INDEX  BNDSOIIO 

CD  J  IS  THE  SECOND-DIMENSION  INDEX  BNDS0120 

CD  JM=1  FOR  1 -DIMENSIONAL  GEOMETRY  BNDS0130 

CD  NINTSR=NJNTSR=1  FOR  EXTERNAL  BOUNDARY  DATA,  BNDS0140 

CD  AND  Z(l)=R(l)-0  IN  THAT  CASE  BNDS0150 

C  BNDS0160 

C . BNDS0170 

CS  FILE  STRUCTURE  -BNDS0180 

CS  -BNDS0190 

CS  RECORD  TYPE  PRESENT  IF  -BNDS0200 

CS  .  BNDS0210 

CS  FILE  IDENTIFICATION  ALWAYS  -BNDS0220 

CS  FILE  LABEL  ALWAYS  -BNDS0230 

CS  FILE  CONTROL  ALWAYS  -BNDS0240 

CS  MESH  DESCRIPTION  ALWAYS  -BNDS0250 

CS  -BNDS0260 

CS  ************** OVER  ALL  GROUPS)  -BNDS0270 

CS  *  I-BOUNDARY  DIRECTIONAL  SOURCE  NINTSR.GT.O  -BNDS0280 

CS  *  J-BOUNDARY  DIRECTIONAL  SOURCE  NJNTSR.GT.O  -BNDS0290 

CS  ****************  -BNDS0300 

C  -BNDS0310 

C . BNDS0320 

C  BNDS0330 

C  BNDS0340 

C . BNDS0350 

CR  FILE  IDENTIFICATION  -BNDS0360 

C  -BNDS0370 

CL  HNAME,(HUSE(I),I*1,2),IVERS  -BNDS0380 

C  -BNDS0390 

CW  I+3*MULT=NUMBER  OF  WORDS  -BNDS0400 

C  -BNDS04I0 
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CD  HNAME  HOLLERITH  FILE  NAME  -  BNDRYS  -  (A6)  -BNDS0420 

CD  HUSE{I)  HOLLERITH  USER  IDENTIFICATION  -  (A6)  -BNDS0430 

CD  IVERS  FILE  VERSION  NUMBER  -BNDS0440 

CD  MULT  DOUBLE  PRECISION  PARAMETER  -BNDS0450 

CD  1-  A6  WORD  IS  SINGLE  WORD  -BNDS0460 

CD  2-  A6  WORD  IS  DOUBLE  PRECISION  WORD  -BNDS0470 

C  -BNDS0480 

C . - . . . BNDS0490 

C  BNDS0500 

C  BNDS0510 

C . - . BNDS0520 

CR  FILE  LABEL  -BNDS0530 

C  -BNDS0540 

CL  DATE,USER,CHARGE,CASE,TIME,(TITL(I), 1=1,12)  -BNDS0550 

C  -BNDS0560 

CW  17*MULT=NUMBER  OF  WORDS  -BNDS0570 

C  -BNDS0580 

CD  DATE  AS  PROVIDED  BY  TIMER  OPTION  4  -  (A6)  -BNDS0590 

CD  USER  AS  PROVIDED  BY  TIMER  OPTION  5  -  (A6)  -BNDS0600 

CD  CRARGE  AS  PROVIDED  BY  TIMER  OPTION  6  -  (A6)  -BNDS0610 

CD  CASE  AS  PROVIDED  BY  TIMER  OPTION  7  -  {A6)  -BNDS0620 

CD  TIME  AS  PROVIDED  BY  TIMER  OPTION  8  -  (A6)  -BNDS0630 

CD  TITL{I)  TITLE  PROVIDED  BY  USER  (A6)  -BNDS0640 

C  -BNDS0650 

C . BNDS0660 

C  BNDS0670 

C  BNDS0680 

C . BNDS0690 

CR  FILE  CONTROL  -BNDS0700 

C  -BNDS0710 

CL  IGM,JM,IMA,MMA,NINTSR,NJNTSR,(IDUM(I),I=1,19)  -BNDS0720 

C  -BNDS0730 

CW  25=NUMBER  OF  WORDS  -BNDS0740 

C  -BNDS0750 

CD  IGM  NUMBER  OF  ENERGY  GROUPS  -BNDS0760 

CD  JM  NUMBER  OF  SECOND-DIMENSION  (J)  INTERVALS  -BNDS0770 

CD  IMA  NUMBER  OF  FIRST-DIMENSION  INTERVALS  -BNDS0780 

CD  MMA  NUMBER  OF  BOUNDARY  DIRECTIONS  -BNDS0790 

CD  NINTSR  NUMBER  OF  I-BOUNDARY  SOURCES  -BNDS0800 

CD  NJNTSR  NUMBER  OF  J-BOUNDARY  SOURCES  -BNDS0810 

CD  IDUM(I)  ARRAY  SET  TO  0  -BNDS0820 

C  -BNDS0830 

C . BNDS0840 

C  BNDS0850 

C  BNDS0860 

C . - . - . --BNDS0870 

CR  MESH  DESCRIPTION  -BNDS0880 

C  -BNDS0890 

CL  (Z(J), 0=1, NJNTSR), (R(I), 1=1, NINTSR)  -BNDS0900 

C  -BNDS0910 

CW  JM+IMA=NUMBER  OF  WORDS  -BNDS0920 

C  -BNDS0930 
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CD  Z(J)  POSITION  FROM  WHICH  J-BOUNDARY  SOURCES  TAKEN  -BNDS0940 

CD  R(I)  POSITION  FROM  WHICH  I-BOUNOARY  SOURCES  TAKEN  -BNDS0950 


C  -BNDS0960 

C . - . BNDS0970 

C  BNDS0980 

C  BNDS0990 

C . - . BNDSIOOO 

CR  I -BOUNDARY  DIRECTIONAL  SOURCES  -BNDSlOlO 

C  -BNDSI020 

CL  (((BIJ(M,J,N),M=1,MMA),J=1,JM),N=I,NINTSR)  -BNDS1030 

C  -BNDS1040 

CW  MMA*JM*NINTSR=NUMBER  OF  WORDS  -BNDS1050 

C  -BNDS1060 

CD  BIJ(M,J,N)  SOURCE  IN  DIRECTION  M,  INTERVAL  J,  SET  N  -BNDSI070 

C  -BNDS1080 

C . - . . . BNDS1090 

C  BNDSIIOO 

C  BNDSllIO 

C . BNDSI120 

CR  J-BOUNDARY  DIRECTIONAL  SOURCES  -BNDSII30 

C  -BNDS1140 

CL  (((BJI(M,I,N),M=1,MMA),I=1,IMA),N=1,NJNTSR)  -BNDS1150 

C  -BNDS1160 

CW  MMA*IMA*NJNTSR=NUMBER  OF  WORDS  -BNDSII70 

C  -BNDS1180 

CD  BJI{M,I,N)  SOURCE  IN  DIRECTION  M,  INTERVAL  I,  SET  N  -BNDS1190 

C  -BNDS1200 

C . BNDS12I0 

C  BNDSI220 

C  BNDS1230 

C  BNDS1240 

C  BNDS1250 

C  END  BNDS1260 


NOTE;  This  is  only  the  cross  section  portion  of  the  ORDOSW  file. 


C- 

C 

CR 

C 

CL 

C 

CW 

C 

CD 

C 

C- 


PRINCIPAL  CROSS  SECTION  DESCRIPTION 
(PCSD(IH),IH=I,IHT) 

NUMBER  OF  WORDS  =  MULT*IHT 

PCSD(IH)  PRINCIPAL  CROSS  SECTION  LABELS  -  (A6) 


C 

C 
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NUCLIDE  IDENTIFICATION 


CR 
C 

CL  {NUC(MT),MT»1,MTM) 

C 

CW  NUMBER  OF  WORDS  -  MULT*MTM 
C 

CD  NUC(MT)  NUCLIDE  LABELS  -  (A6) 

C 

C . - . . 


c- 

c 

CR 

C 

CL 

C 

CW 

C 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CL 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

C 


CROSS  SECTION  DATA 


((SIG{IH,MT),IH.1,IHP),MT-1,MTM) 
NUMBER  OF  WORDS  -  IHP*MTM 


SIG(IH,MT) 

1  TO  IHT-5 
IHT-4 
IHT-3 
IHT-2 
IHT-I 
IHT-0 
IHT+1 


CROSS  SECTION  DATA  BY  TABLE  POSITION,  THEN  BY 
NUCLIDE.  TABLE  POSITIONS  CONTAIN  -  - 
ARBITRARY  DATA,  SPECIFIED  BY  USER,  OR  ABSENT 
FISSION  YIELD  FRACTION  (RECOMMENDED) 

FISSION  CROSS  SECTION  (RECOMMENDED) 
ABSORPTION  CROSS  SECTION 
NEUTRON  PRODUCTION  CROSS  SECTION 
TOTAL  CROSS  SECTION 

UPSCATTER  FROM  GROUP  IG+(IHS-1-IHT)  TO  IG 


IHS-1  UPSCATTER  FROM  GROUP  IG+1  TO  IG 
IHS  SELF  SCATTER  FOR  GROUP  IG 
IHT+1  DOWNSCATTER  FROM  GROUP  IG-1  TO  IG 


IHM  DOWNSCATTER  FROM  GROUP  IG+IHS-IHM  TO  IG 
IHM+1  TOTAL  SCATTER  FROM  GROUP  G  TO  ALL  GROUPS 

(PRESENT  ONLY  IF  IHS  IS  GREATER  THAN  IHT+1) 

IHS  MAY  BE  IHT+1  IF  UPSCATTER  IS  ABSENT. 
TRANSFERS  FROM  GROUPS  LESS  THAN  1  OR  GREATER 
THAN  IGM  ARE  ZERO.  POSITIONS  LESS  THAN  OR 
EQUAL  TO  IHT  ARE  ZERO  FOR  PL  COMPONENTS 
OTHER  THAN  THE  OTH. 

EACH  COMPONENT  OF  A  PL  SET  IS  TREATED  AS  A 
SEPERATE  NUCLIDE.  THUS,  M  SETS  WOULD 
COMPRISE  M*NQUAD+M  NUCLIDES 
IHP  EQUALS  IHM  UNLESS  IHS. GT. IHT+1 ,  THEN  IHM+1 


4.7  LOGICAL  UNIT  REQUIREMENTS 


4.7.1  Input  and  Output  Data  Files 

All  of  the  user  input  and  output  data  files  are  expressed  in  formats 
designed  according  to  recommendations  of  DOE's  Committee  on  Computer 
Code  Coordination  (CCCC).’^  The  specifications  of  these  files  are 
contained  in  Section  4.6.  Two  exceptions,  retained  for  backward 
compatibility,  are  an  optional  capability  to  process  a  "GIF"  cross 
section  input  file  and  to  produce  a  "DOT  Angular  Fluence  Tape"  as 
output. 

The  GIP  file  is  defined  exactly  as  the  records  labeled  "CROSS  SECTION 
DATA"  in  the  ORDOSW  file,  and  has  no  other  record  types.  The  "DOT  Ill 
Angular  Fluence  Tape"  is  defined  in  the  DOT  III  User's  Manual,’^  and  is 
simulated  by  DORT  as  accurately  as  possible.  An  alternate  format  is 
used  when  the  albedo  generation  option  is  used. 

The  correspondence  of  file  type  to  use  in  the  code  is: 


SYMBOL 

FILE  TYPE 

USE 

NTFLX 

VARFLM 

Fluence  and  moment  input 

NTFOG 

VARFLM 

Fluence  and  moment  output 

NTSIG 

ORDOSW  or  GIP 

Cross  section  input 

NTBSI 

BNDRYS 

External  boundary  source  input 

NTDSI 

VARSOR 

Distributed  source  moment  input 

NTFCI 

VARSOR 

First  collision  source  input 

NTIBI 

BNDRYS 

Internal  boundary  source  input 

NT  I  BO 

BNDRYS 

Internal  boundary  fluence  output 

NTDIR 

DOT  III  "Angular 

Fluence  Tape" 

Directional  fluence  output 

NTDSO 

VARSOR 

Directional  fluence  moment  output 

Logical  units  5  and  6  are  also  used  by  DORT  as  the  standard  card  image 
input  and  printed  output  units  respectively. 


4.7.2  Scratch  Data  Sets 

The  following  lists  the  scratch  data  sets,  the  length  of  each  record, 
and  the  number  of  records: 
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Logical 

Unit 

Nunber 

Logical 

Unit 

Symbol 

Description 

Record  Length 
(1  record) 

Nunber  of 
Records 
(nrec) 

Required  If: 

81 

Scalar  Fluence  Scratch 

1NA*JH 

IGN 

Not  Used  at 

this  time 

82 

NDSIG 

Cross-Section  Scratch 

IHM^TN 

IGM 

Always 

83 

NOBTL 

Balance  Table  Scratch 

NREG*10*I2N*8 

IGM 

IREO  /  0 

84 

MDBS  I 

Boundary  Source  Scratch 

IGM 

NTBSI  >  0 

(1MA*HJNTSR 

(NINTSR  >  0 

«JM*NINTSR)*MHA 

or 

•flCMJCM^NREG 

IGM 

NJNTSR  >  0) 

91 

NDFLX 

Fluence  Scratch 

1MA*LM» JBLKl 

NJBLK* IGM 

NJBLK  >  0 

92 

NDSOft 

Total  Source  Scratch 

IMA*t!**  JBLKl 

NJBLK 

NJBLK  >  0 

93 

NOS  IN 

IN-Source  Scratch 

1MA*LM* JBLKl 

NJBLK 

NJBLK  >  0 

94 

NOBFX 

Boundary  Fluence  Scratch 

(IHA«JM)*HMA 

IGM 

Always 

95 

NDFIJ 

Scalar  Fluence  Scratch 

1MA*JN 

IGM 

Always 

NOTE:  The  symbol  denotes  the  word  "number." 


JBLKl  =  #J  levels  per  J  block,  1  <  JBLKl  <  JM 

NJBLK  =  #J  blocks,  MINBLK  <  NJBLK  <  MAXBLK  (NJBLK  =  0  if  fluences  are 
stored  in  working  memory) 

LM  *  maximum  number  of  moments  (including  0^*')  in  spherical 
harmonic  expansion,  LM  -  1  +  |ISCT|*{(lISCT|+3))/2 
NREG  -  number  of  edit  regions 
IZM  =  number  of  material  zones 


For  unit  84,  If  NTBSI  >  0  and  NINTSR  >  0,  for  example, 
this  file  will  have  IGM  +  IGM  records. 


The  number  of  J  blocks,  NJBLK,  is  controlled  by  input  data.  When 
default  values  of  MINBLK  and  MAXBLK  are  used,  the  code  will  attempt  to 
hold  all  fluence  and  source  data  in  fast  memory,  i.e.,  NJBLK  =  0. 

Failing  in  this,  it  will  attempt  to  allocate  space  for  the  entire  mesh 
to  be  held  as  1  block  in  the  user-buffer  area,  i.e.,  NJBLK  =  1.  Failing 
in  this,  the  space  mesh  is  broken  into  as  many  blocks  as  required. 

NJBLK  is  restricted  to  limits  specified  by  MINBLK  and  MAXBLK. 


4.8  DETAILS  OF  DORT  JOB  REQUIREMENTS 


4.8.1  CPU  Time  Usage 

A  reasonably  accurate  time  limit  should  be  calculated  and  entered  as 
TMAX  for  all  problems  which  run  more  than  a  few  minutes.  The  maximum 
time  given  to  the  operator  or  operating  system  should  be  somewhat  larger 
than  TMAX.  This  allows  DORT  to  complete  Its  I/O  and  data  summaries  if 
the  time  is  exceeded  during  the  iteration  phase.  The  CPU  time  required, 
C,  can  be  estimated  by  the  following  formula: 


4-58 


c 


150 

SF 


=  A  + 


FW 


FR 


=  E  E  E  E  E 

P  G  F  J  I 

where 

FW  «  fluence  work 

MM  *  number  of  directions 

I,J  -  space-mesh  indices 

F  -  inner  (fluence)  iteration  index 

G  «  energy  group 

P  -  outer  (source)  iteration  index 

FR  -  fluence  rate  on  the  reference  machine,  the  IBM  370/3033 
SF  *  the  speed  factor  for  the  machine  used 

A  «  overhead  (I/O,  problem  setup,  and  summary  activities) 

The  value  of  A  is  typically  0  to  2  minutes  on  the  IBM  360/91.  Suggested 
speed  factors  are  shown  in  Table  4-7. 


Table  4-7.  Speed  Factor 
(Based  on  IBM  709  -  1) 


CDC 

7600 

250 

IBM 

360/195 

250 

IBM 

370/3033 

150 

IBM 

360/91 

150 

CDC 

6600 

30 

IBM 

7094 

10 

IBM 

7090 

5 

The  value  of  FR  depends  somewhat  upon  the  class  of  problem  solved.  FR 
is  about  1.0  million  fluences  per  minute  for  large  P3  problems  using  the 
weighted  difference  model.  The  linear-zero  model  sometimes  runs  a  bit 
faster,  and  a  Pq  calculation  runs  as  much  as  40%  faster.  The  IBM  speeds 
assume  the  use  of  optional  assembler  language  fluence  routines. 
Assembler  language  routines  are  not  available  for  CDC  use.  Expert 
opinions  offered  to  us  differ  as  to  how  much  the  CDC  performance  would 
benefit  from  the  use  of  assembler  language. 
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4.8.2  System  Buffer  Space  (NBUF)  and  Memory  Requirements 

A  discussion  on  the  system  buffer  space  is  given  in  Reference  14  for 
many  of  the  machines  on  which  the  DORT  code  is  operable.  This  parameter 
is  machine  dependent  and  the  interested  user  should  consult  this 
reference.  The  use  of  the  default  given  in  the  input  will  usually  give 
the  user  adequate  buffer  space. 

The  user  must  understand  the  various  storage  arrangements  in  order  to 
provide  enough  space  for  data  storage.  An  exact  formula  for  the  amount 
of  storage  required  is  not  practical.  Numerous  small  arrays  are 
assigned,  and  arrays  overlap  in  storage  in  many  cases.  Approximate 
methods  have  proven  satisfactory,  however.  A  detailed  presentation  of 
the  memory  requirements  can  be  found  in  Reference  14. 


4.8.3  Problem  Printed  Output 

Each  DORT  job  starts  with  a  notice  of  the  date  and  time,  followed  by  a 
record  of  the  particular  version  of  the  code  being  used,  and  messages 
from  the  programmer  informing  the  user  of  warnings  or  special  features. 
The  title  supplied  by  the  user  as  input  data  is  next.  As  each  array  of 
input  data  is  read,  a  notice  of  the  array  number  and  length  is  made. 

The  first  array  edits  are  of  the  61$  (logical  unit  assignments),  62$ 
(integer  control  parameters),  and  63*  (real  control  parameters).  The 
initial  allocation  of  fast  memory  and  (CDC  only)  slow  memory  are  listed, 
followed  by  primary  dimension-setting  arrays,  mixing  table  information, 
material  assignment,  importance,  fission  spectrum,  and  search  fractions. 

The  next  section  is  a  set  of  data  describing  the  directional  remesh 
process,  MM  <  0.  These  tables  are  largely  for  the  benefit  of 
programmers  in  diagnosing  troublesome  problems.  The  quadrature  set 
assignment  by  super-zone  is  an  input  array.  The  transition  table 
indicates  which  transition  set  governs  the  transition  from  the  row  M-Set 
to  the  column  M-Set. 

The  unpacking  arrays  follow;  one  for  each  M-Set.  These  integers  simply 
indicate  places  in  a  full  [MM] -direction  array  where  data  corresponding 
to  a  smaller  M-Set  can  be  kept  without  being  overwritten. 

The  actual  transition  sets  are  given  next.  Each  set  consists  of  two 
columns  of  integers.  Each  position  in  each  column  corresponds  to  a 
direction  in  the  corresponding  M-Set.  The  remeshing  routine  decodes  the 
integers  in  order  to  determine  how  to  construct  fluences  in  a  new  M-Set 
which  correspond  to  a  previous  M-Set.  Since  the  tables  are  given  in 
unpacked  form,  as  needed  by  the  code,  unused  positions  are  filled  with 
"-1." 

The  direction  sets  are  listed,  together  with  "BETA"  (the  p-flow  coupling 
term),  p-mates,  r-mates,  and  level -mates.  The  p-mate  of  direction  (/i,t) 
is  direction  (  -p,T).  The  r-mate  is  direction  (p,-r).  The  level-mate 
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is  the  first  direction  in  the  i?-level  containing  the  r-Mate. 

Unsyimetric  direction  sets  may  not  possess  all  of  these  mates.  If  a 
mate  required  for  a  boundary  condition  can  not  be  found,  an  error  flag 
is  set. 

The  values  of  the  coupling  set  are  edited,  followed  by  the  J  fine- 
mesh  and  I  fine-mesh  sets.  The  real  values  of  super-mesh  and  coarse- 
mesh  boundaries  are  interpreted  into  integer  assignment  tables  edited  at 
this  point.  The  total  size  of  these  meshes,  number  of  super  groups,  and 
of  edit  zones  are  given,  together  with  related  input  array  edits. 

Maps  of  the  zone  and  material  assignments  are  given,  together  with  the 
integral  values  of  the  unnormalized  input  sources  by  group,  with  the 
total  as  group  IGM  +  1.  A  table  of  storage  usage  gives  data  useful  to 
the  programmer,  as  well  as  items  needed  in  adjusting  the  input  data,  as 
discussed  elsewhere. 

A  source  iteration  monitor  line  ends  each  source  iteration,  and  initial 
values  are  indicated  in  an  "iteration  0"  line.  Entries  on  this  line 
are: 


ITN 

Source  iteration  number 

FIX 

Number  of  fluence  iterations  completed  for  this  source 

iteration 

CUM 

Cumulative 

number  of  source  iterations 

CNV 

10*IXX  +  IFCONV 

IXX  as  noted  earlier  in  Section  4.5.7 

IFCONV  -  0 

Source  iterations  are  to  continue 

-  1 

One  more  iteration  is  required 

=  2 

Iterations  are  to  stop  at  once 

*  3, 

4,5  As  in  0,1,2,  but  configuration 

recalculation  is  required 

ACC 

100*ISR  +  10*NEWCFG  +  lACX 

ISR  =  0 

No  eigenvalue  extrapolation  was  performed 

-  1 

Linear  eigenvalue  extrapolation  was 
performed 

-  2 

Nonlinear  eigenvalue  extrapolation  was 
performed  (2-point) 

-  3 

Nonlinear  eigenvalue  extrapolation  was 
performed  (3 -point) 

NEWCFG  =  0 

Old  configuration  is  to  be  used 

=  3 

New  configuration  is  to  be  used 

lACX  -  0 

Extrapolation  of  fluences  was  bypassed 

«  1 

Extrapolation  of  fluences  was  performed 

IFX 

I-position 

iterations 

of  maximum  fluence  change  between  source 

JFX 

J-position 

iterations 

of  maximum  fluence  change  between  source 

GFX 

Group  of  maximum  fluence  change  between  source 

iterations 

EV 

Eigenvalue 

edit 
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K 

K-effective  edit 

K-CNV 

K  convergence, 

FSN-CNV 

Fission  convergence,  e® 

FLX-CNV 

Fluence  convergence, 

GRP-CNV 

Group-convergence, 

SRH-CNV 

Search  convergence, 

UPS-CNV 

Upscatter  convergence, 

EXTRAP 

Fission  extrapolation  factor 

TIME 

Time  iteration  was  completed 

The  interpretations  of  EV  and  K  are: 


KTYPE  EV  edit  Kedit 

0  for  adjoint)  SO'i/a’'* 

J  It  H 

2,3,4  search  eigenvalue  " 


If  the  X's  do  not  sum  to  1,  K  will  differ  from  EV  in  a  K-calculation  by 
a  ratio  equal  to  the  sum  of  X.  Even  if  X  is  precisely  normalized  to  1 
by  selecting  the  input  value  NOFIS  ■  0,  EV  and  K  may  be  slightly 
different  due  to  roundoff. 

As  each  fluence  iteration  is  performed  on  each  energy  group,  another 
monitor  line  is  printed.  It  contains: 


GRP 

ITN 

IMFD 

JMFD 

MX  FX  DV 

MX  DV  FX 

REBL 

REBL  ERR 


Energy  group  number 

Fluence  iteration  number 

I-position  of  maximum  fluence  change 

J- posit ion  of  maximum  fluence  change 

Relative  maximum  fluence  change 

Most  rapidly  changing  fluence  value 

Number  of  rebalance  iterations  -  a  negative  value  means 
the  rebalance  factors  were  not  used 

Maximum  relative  change  in  rebalance  factors  in  the  last 
iteration 
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MAX  REBL  Largest  amount  by  which  any  factor  deviates  from  1 

GRP  REBL  Amount  by  which  groupwise  rebalance  factor  (whether  used 
or  not)  deviates  from  1 

VOLM  ERR  Volumetric  convergence,  discussed  earlier,  except  that 
absolute  value  is  not  used 

KEY  FLUX  Value  of  single  key  fluence  requested  by  input  data, 
after  acceleration 

NEGFIX  Maximum  fraction  of  negative  total  source  at  any 
position,  if  NEGFIX  «  1 

SOURCE  Total  of  all  sources  into  a  group,  including  external 
boundary  sources 

TIME  The  time  at  which  group  iteration  is  begun  is  given  at 
the  end  of  the  heading  column.  Arbitrary  diagnostic 
information  is  given  below  the  time  indication. 


Iterations  performed  using  diffusion  theory  will  provide  only  the  first 
six  items.  Edits  of  key  fluence  values  and/or  convergence  by  region  may 
follow  each  iteration  or  the  set  of  iterations  for  each  group,  according 
to  the  options  chosen.  The  interpretation  of  fluence  convergence  also 
depends  on  options  chosen,  as  discussed  earlier. 

If  a  dimension  search  has  been  performed,  the  final  dimensions  are 
edited.  Fluence  and  fission  source  edits  follow,  together  with  activity 
edits  by  interval  and  region. 

System  balance  tables  follow  by  group  and  region.  Group  and  system 
totals  are  given  as  IGM  +  1  and  NREG  +  1.  The  columns  are  largely  self- 
explanatory.  One  may  note  that  an  external  boundary  source  is  external 
to  the  system,  and  is,  therefore,  included  in  these  tables  as  a  flow  at 
the  corresponding  boundary.  Flow  and  leakage  signs  are  such  that  a 
positive  value  is  outward  from  the  region.  Fission  source  is  source 
used  to  calculate  the  fluence,  while  fission  rate  is  the  fission  which 
results  from  the  fluences.  They  will  tend  to  differ  by  K  times  the  sum 
over  g  of  the  in  a  K-calculation.  Inscatter  and  outscatter  are 
scatter  to  and  from  the  energy  group.  They  should,  in  general,  be  equal 
in  neutron-only  problems.  This  will  not  be  true  in  coupled  n-7 
problems.  The  outscatter  is  calculated  from: 


outscatter  -  collisions  -  self scatter  -  absorption 


and  will  be  valid  only  if  the  absorption  cross  section  meets  the  balance 
condition. 
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The  edit  of  selfscatter  per  collision  is  valuable  in  judging  the 
difficulty  of  converging  fluences  for  a  given  energy  group.  In  general, 
values  larger  than  0.85  may  give  the  PCR  fluence  acceleration 
difficulty.  The  average  density  factor  is  collision  weighted. 

The  value  of  OUT/IN  approaches  unity  for  well -converged  problems.  It 
is: 


_ Collision  +  DB^  Loss  +  Positive  Boundary  Outflow _ 

Fixed  Source  +  Fission  Source  +  Inscatter  +  Negative  Boundary  Outflow 


Sources,  flows,  leakage,  and  OUT/ IN  may  not  be  correct  in  the  case  of 
groups  in  which  no  iterations  are  performed. 

The  fluences,  as  well  as  balance  table  information  which  depend  on  them, 
are  not  divided  by  and  will,  in  general,  tend  to  vary  according  to 
Some  users  speak  of  this  condition  as  "fluences  normalized 
according  to  K." 

Each  problem  ends  with  a  summary  of  clock  and  CPU  time  binned  according 
to  major  sections  of  the  code.  Depending  on  configuration,  some  bins 
may  not  have  labels.  These  are  for  diagnostic  information  only. 

Some  output  may  not  appear  in  certain  problems,  depending  on  the  options 
chosen.  The  use  of  NTPRT  can  alter  the  order  of  printing  on  some 
systems,  or  can  transfer  some  output  items  to  alternate  output  devices. 


4.9  PROGRANNER  INFORMATION 


4.9.1  Inter-machine  Adaptability 

The  DORT  code  is  intended  to  be  easily  adaptable  to  any  type  of 
sophisticated  computer,  and  yet  to  take  advantage  of  certain  localized 
structural  features  which  may  be  machine-dependent. 

In  general,  the  guidelines  of  ANS-STD. 3-1971’*  are  followed.  This 
requires  general  adherence  to  a  simple,  standard  FORTRAN  language  except 
where  deviations  provide  important  improvements  in  capability  and  can  be 
documented.  In  addition,  machine-dependent  features  have  been  kept 
localized  and  have  not  been  included  in  the  subroutines  which  perform 
actual  computation. 

The  recommended  procedures  of  the  Committee  on  Computer  Code 
Coordination  (CCCC)’®-’^  have  been  followed  where  practical.  Compliance 
with  these  standards  has  been  incomplete  where  cost  was  prohibitive,  the 
nature  of  the  codes  did  not  allow  it,  or  the  expected  level  of 
performance  could  not  be  obtained  in  that  fashion. 
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Where  minor  or  certain  machine-dependent  features  are  required, 
alternative  features  are  enclosed  in  pairs  of  3-character  "language 
flags."  The  alternative  statements  remain  in  the  source  program,  with 
inappropriate  sections  transformed  into  comment  statements.  If  the  code 
is  set  up  for  IBM  operation,  for  example,  it  might  contain: 


CIB 

CIB 

CDC 

ENTRY 

IBCDC(H,E,L,P) 

C 

CDC 

ENTRY 

IBCDC 

The  corresponding  CDC  configuration  would  be: 


CIB 

C 

ENTRY  IBCDC(H,E,L,P) 

CIB 

CDC 

ENTRY  IBCDC 

CDC 

All  versions  of  a  given  procedure  are  thus  available  for  inspection  by 
all  users.  The  selection  of  options  is  made  by  a  computer  program  at 
distribution  time.  A  listing  of  machine-dependent  sections  can  also  be 
prepared  in  that  process. 

The  language  flags  achieve  the  major  objective  of  having  a  single, 
unified  source  for  each  program  which  is  maintained  for  all  users.  With 
these  provisions,  the  basic  FORTRAN  programs  are  operable  on  IBM,  CDC, 
UNIVAC,  CRAY,  Amdahl,  and  other  computers,  except  that  system-dependent 
service  routines  as  specified  by  CCCC  must  be  provided. 

Optional  packages  and  procedures  which  provide  enhanced  convenience  are 
also  available.  The  optional  run-time  storage  allocation  requires 
system-dependent  routines.  Instructions  for  installing  these  options 
are  distributed  with  the  source  programs.  All  known  users  at  this  time 
use  all  of  the  optional  enhancements  available  to  them.  Even  so,  the 
basic  operation  with  FORTRAN  routines  plus  the  CCCC  package  remains 
available  if  needed. 


4.9.2  Service  Subroutines 

Certain  standard  service  subroutines  are  specified  by  the  CCCC  for  use 
in  reactor  physics  codes.  The  service  routines  used  in  these  codes 
include: 
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TIMER 


Provides  timing  and  job  identification  data 


REED 

RITE 

DRED 

DRIT 

DOPC 


D- 


Provide  sequential  access  to  data  files 

Provide  random  access  to  data  files 

Provides  initiating,  closing,  and  certain  repositioning 
of  data  files 


CRED 

CRIT 


Provide  block  transfer  of  data  between  fast  and  slow 
memory . 


Many  of  these  subroutines  also  call  other  subroutines.  Many  are 
entirely  system  dependent.  Each  configuration  to  be  distributed 
contains  an  appropriate  set  of  service  subroutines,  insofar  as  possible. 
The  realities  of  computing  environments  may  require  local  modification 
or  substitution.  The  specifications  given  in  Reference  16,  together 
with  extensive  in-stream  comments,  provide  guides  for  such  modification. 
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4.11  SAMPLE  PROBLEM 


The  sample  problem  demonstrates  the  calculation  of  the  air-over-ground 
environment  for  the  two-meter  box  experiments. Figure  4-2  shows  a 
simple  diagram  of  the  geometry  modeled  in  the  DORT  input.  (It  should  be 
noted  again  that  the  DORT  and  GRTUNCL  geometry  models  are  equivalent  for 
the  analysis  performed  in  MASH.)  A  complete  listing  of  the  input  cards 
for  the  sample  problem  is  given  in  Figure  4-3,  and  some  selected  output 
is  shown  in  Figure  4-4. 

The  DORT  input  stream  shown  in  Figure  4-3  includes  a  tremendous  amount 
of  control  parameters  in  the  first  data  block  (62$,  62$,  and  63* 
arrays).  The  user  will  note  that  most  of  these  parameters  are  system  or 
code  defaults.  Consequently,  only  those  parameters  of  particular 
importance  to  the  sample  problem  will  be  emphasized.  The  61$  array 
parameters  indicate  the  input  and  output  files  utilized  in  this 
calculation.  It  should  be  noted  that  this  particular  DORT  case  utilized 
an  input  fluence  guess  (NTFLX).  This  was  because  this  calculation  was 
restarted  from  a  previous  one.  If  no  input  fluence  guess  is  used,  this 
unit  would  be  zero.  The  scalar  fluences  were  written  on  unit  21 
(NTF06),  the  cross  sections  (from  6IP)  were  input  on  unit  4  (NTSIG),  the 
directional  fluences  were  written  on  unit  22  (NTDIR),  and  the 
distributed  source  was  read  in  from  unit  23  (NTDSI).  The  distributed 
source  represents  the  output  file  from  the  GRTUNCL  sample  problem 
discussed  in  Section  3.0,  and  the  cross  sections  are  from  the  GIP  sample 
problem  discussed  in  Section  2.0.  The  user  should  compare  the 
parameters  used  in  these  two  problems  with  the  ones  used  in  the  DORT 
case  to  see  how  the  different  programs  interact. 

In  viewing  Figure  4-3,  the  input  illustrates;  8  material  zones  (IZM),  66 
radial  intervals  (IM),  84  axial  intervals  (JM),  69  energy  groups  (IGM), 
a  cross-section  table  length  (IHM)  of  72,  no  upscatter  (IHT=3,  and 
IHS=4),  and  a  mixing  table  length  (MS)  of  0.  54  materials  (9  different 

mixtures,  each  with  a  Pq  through  P5  component)  were  read  in  from  a  GIP 
tape  (MTMP=54).  The  total  number  of  materials  (MT)  was  54,  and  no  print 
was  requested  for  the  printed  output  (ICSPRT=1).  The  problem  included; 
240  directions  in  the  quadrature  set  (MM=240),  RZ  geometry  (INGE0M=1), 
group  dependent  fluence  iteration  (IFXMI=-4),  theta  weighted  fluence 
extrapolation  model  (M0DE»4),  directional  fluences  saved  (IDIRF=2),  and 
20  key  fluences  printed  at  the  group  convergence  (NKEYFX=-20) .  The 
group  dependent  fluence  iteration  scheme  is  given  in  the  24$  array.  The 
axial  and  radial  intervals  for  the  key  fluences  are  given  in  the  29$  and 
30$  arrays.  The  first  directional  fluence  axial  interval  saved  was  13 
(JDIRF),  and  the  last  interval  saved  was  25  (JDIRL).  The  user  should 
note  these  two  parameters  match  parameters  used  in  the  VISTA  sample 
problem  given  in  the  Section  5.0.  A  zone  dependent  convergence 
criterion  was  chosen  (IEPSBZ=11)  and  the  convergence  parameters  for  each 
material  zone  are  in  the  24*  array.  This  parameter  is  useful  when 
performing  a  large  air-over-ground  problem,  and  the  user  does  not  want 
to  converge  the  entire  mesh  to  a  fine  convergence  criteria  when  only  a 
portion  of  the  mesh  is  really  important.  In  the  sample  problem,  there 
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was  a  tight  convergence  criteria  used  at  the  locations  of  importance  in 

the  mesh,  a  less  strict  criteria  used  around  these  areas,  and  then  a 

minimal  criteria  used  for  the  areas  of  lee  importance,  the  zone  numbers 
by  interval  are  entered  in  the  8$  array,  and  the  material  by  zone  is 
entered  in  the  9$  array.  These  arrays  along  with  the  axial  intervals 
(2*  array)  and  radial  intervals  (4*  array)  match  the  same  arrays  in  the 
GRTUNCL  sample  problem,  with  the  exception  that  GRTUNCL  requires  a 
negative  entry  in  the  9$  array  for  to  indicate  the  higher  order  of  cross 
section  scattering. 

A  full  description  of  the  DORT  printed  output  is  given  in  Section  4.8.3 
above.  The  user  should  consult  this  section  for  viewing  the  sample 
problem  output.  The  selected  DORT  output  shown  in  Figure  4-4  fiist 
illustrates  the  input  parameters  read  in  the  first  data  block,  followed 

by  the  initial  memory  requirements  to  run  this  particular  DORT  case. 

The  output  then  produces  the  directional  remesh  arrays,  followed  by 
indicators  that  the  second,  third,  and  fourth  data  blocks  have  been 
successfully  read.  A  listing  of  some  of  the  parameters  in  the  third 
data  block  (10$,  11$,  12*,  9$,  24*,  etc.)  are  next  in  tabular  form. 

This  table  is  followed  by  the  quadrature  information  and  Legendre 
coefficients  for  scattering  integrals.  This  information  is  followed  by 
the  fine  mesh  sets,  the  zone  number  and  material  number  by  interval 
maps.  This  table  is  followed  by  a  listing  of  storage  information  useful 
to  the  programmer.  Next,  the  source  iteration  information  followed  by 
the  key  fluence  array  is  printed  for  each  group.  This  is  an  important 
table  in  that  the  problem  convergence  is  illustrated  here.  Finally,  the 
system  balance  tables,  depending  on  the  option  chosen,  (IRED)  are 
printed.  In  this  sample  problem,  a  balance  table  was  chosen  for  each 
zone  in  the  problem  along  with  a  system  table.  The  last  line  printed  on 
the  sample  problem  output  is  a  summary  of  clock  and  CPU  time  used. 
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'  dort  -  aprf  aog  using  saic  1989  angle-energy  leakage  source,  mm  =  240 

'  16,143m  source  height,  simple  topography  out  to  400m  test  site 

'  34%  ground  moisture,  10/24/89(a)  air  parameters 

61$$  20  21  4  0  23  /  ntflx,ntfog,ntsig,ntbsi ,ntdsi 

0  0  0  0  22  /  ntfci,ntibi,ntibo,ntnpr,ntdir 

0  e  /  ntdso 

62$$  0  5  8  66  84  /  iadj, isctm, izm, im, jm 

69  3  4  72  0  /  igm,iht,ihs,ihm,mixl 

0  54  54  0  240  /  mcr,ffltp,mtm, idfac,mm 

11000  /  ingeom, ibl ,ibr,ibb,ibt 

1-4040  /  isrmx, ifxmi,ifxmf,mode,ktype 

20000  /  iacc,kalf,igtype,inpfxm,inpsrm 

00000  /  njntsr,nintsr,njntfx,nintfx, iact 

80112  /  ired,ipdb2,ifxprt,icsprt,idirf 

13  25  120  11  1  /  jdirf,jdirl ,nbuf, iepsbz,minblk 

11111  /  maxblk,isbt,msbt,msdm,ibfscl 

4  50  2  0  0  /  intscl ,itmscl,nofis,ifdb2z,iswp 

19  28  0  0  0  /  keyjn,keyin,nsigtp,norpos,normat 

0  0  250  250  -20  /  mstmax,negfix,locobj,lcmobj,nkeyfx 

4  46  0  0  0  /  ncndin,neut,itally,ispl,isp2 

e 

63**  120  0.0  1-4  1-2  0.0  /  tmax,xnf ,eps,epp,epv 

1-3  1.0  0.2  1.5  10.0  /epf,ekobj,evth,evchm,evmax 
1,0  1.0  -1.0  0.3  10.0  /evkmx,evi ,devdki ,evclelk,sormin 
1.0  1-4  1-2  0.3  -1.5  /conacc,conscl ,coneps,wsoioi ,wsol i i 
1.5  0.6  0.0  1-60  0.0  /wsolcn,orf,fsnacc,flxmin, smooth 
1-2  0.2  0.9  /  epo,extrcv, theta 

e  t 
t 

81**  /  wts  mm240 

0  2rl02900-8  0  2r307825-8  0  2r510200-8  0  2r708425-8  0 
2r901350-8  0  563869-8  316131-8  n2  0  641385-8  359590-8  n2  0 
714976-8  400849-8  n2  0  784547-8  439853-8  n2  0  857529-8 

480771-8  n2  0  642875-8  293289-8  479164-8  n3  0  681415-8 

310872-8  507890-8  n3  0  716550-8  326901-8  534077-8  n3  0 

745915-8  340298-8  555965-8  n3  0  775565-8  353825-8  578064-8 

n3  0  489468-8  386282-8  513536-8  364389-8  n4  0  500102-8 
394674-8  524693-8  372306-8  n4  0  508580-8  401365-8  533587-8 
378617-8  n4  0  515474-8  406806-8  540820-8  383750-8  n4  0 
517107-8  408094-8  542534-8  384965-8  n4  ql20 


Figure  4-3.  Sample  DORT  Input  for  the 
Two-Meter  Box  Air-Over-Ground  Analysis, 
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82**  /  mus  iivn240 

-641230-7  -421582-7  ml  -142963-6  -939923-7  ml  -229252-6 
-150724-6  ml  -315291-6  -207291-6  ml  -399349-6  -262555-6  ml 
-472796-6  -411087-6  -143488-6  m2  -537046-6  -466952-6 
-162988-6  m2  -598374-6  -520275-6  -181600-6  m2  -656401-6 
-570729-6  -199211-6  m2  -711034-6  -618231-6  -215791-6  m2 
-761567-6  -713133-6  -470428-6  -164201-6  m3  -807567-6 
-756207-6  -498843-6  -174119-6  m3  -849108-6  -795106-6 
-524503-6  -183075-6  m3  -885925-6  -829582-6  -547246-6 
-191013-6  m3  -917890-6  -859514-6  -566991-6  -197905-6  m3 
-944812-6  -922954-6  -765692-6  -505099-6  -176303-6  m4 
-966490-6  -944130-6  -783260-6  -516688-6  -180348-6  m4 
-982847-6  -960108-6  -796516-6  -525433-6  -183400-6  m4 
-993815-6  -970823-6  -805405-6  -531297-6  -185447-6  m4 
-999313-6  -976194-6  -809860-6  -534236-6  -186473-6  m4  ql20 

83**  /  etas  mm240 

3r-. 997942  3r-. 989728  3r-. 973367  3r-. 948995  3r-. 916799 
5r-. 881172  5r-. 843553  5r-. 801217  5r-. 754412  5r-. 703158 
7r-. 648086  7r-. 589776  7r-. 528222  7r-. 463828  7r-. 396835 
9r-. 327613  9r-. 256704  9r-. 184425  9r-. 111045  9r-. 037054  gl20 

84$$  12345678  /  reg  nos  by  zone 

t 

1**  fO  /  fission  spectrum 
2**  /axii  (jm+1) 

-80  -75  -70  -65  -60  -55  -50  -45  -40  -35  -30  -25  -20  -15  -10  -5  -2.5 

-1  0  50  150  250  489  749  949  1102  1220  1311  1381  1435  1476  1508  1532 

1551  1566  1577  1585  1592  1597  1601  1604  1607  1608.5  1610  1614.3  1619 
1620.5  1622  1624  1627  1631  1636  1643  1651  1662  1677  1696  1720  1752 
1793  1847  1917  2008  2126  2279  2479  2739  3076  3514  4085  4826  5789  7042 
8670  10787  13000  16000  19000  22000  25000  28000  31000  34000  37000  40000 

4**  /radii  (im+1) 

0  4.6  6  7.8  10  13  17  22  29  37  48  63  82  106  138  179  233  303  394  512  665 
865  1125  1462  1900  2471  3212  4175  5428  7056  9000  11000  13000  15000 
16500  17500  19000  21000  23000  25000  27000  28500  29500  30500  31500 

33000  35000  37000  38500  39500  40500  41500  43000  45000  47000  49000 

51000  54000  57000  60000  63000  66000  69000  72000  75000  78000  80000 

5**  fl  /  energy  group  boundaries 


Figure  4-3.  (continued) 
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8$$  /  zone  numbers  by  interval 

'  zones  1,  2,  &  3-aprf  ground,  4  &  5-borated  concrete,  6,  7,  &  8-air 
66rl  8q66  /j-ints  1-9 
19r5  47rl  2q66  /j-ints  10-12 

19r4  3r3  8rl  3r3  3r2  5r3  3r2  4r3  3r2  3  14rl  5q66  /j-ints  13-18 

33r7  3r6  5r7  3r6  4r7  3r6  7  14r8  3q66  /j-ints  19-22 

52r7  14r8  3q66  /j-ints  23-26 
66r8  71q66  /j-ints  27-98 

9$$  3rl  2r7  3rl3  /  mat  by  zone 

24**  I.-IO  1.0  l.-l  1.-2  I.-IO  1.0  l.-l  I.-IO  /  importance  by  zone 

28$$  35r8  llr25  23r8  /  inners  by  grp 

29$$  13rl9  3r20  3r21  22  /  key  fix  j-pos's 

30$$  31  34  35  36  39  42  43  44  49  50  51 

53  56  35  43  50  lq3  50  /  key  fix  i-pos's 

t 


Figure  4-3.  (continued) 


4-73 


dropf  I  la-  •dorta  .  langth-  103935  loadad  13/31/89  11:19:38  unuaad  maiaory  3894373 


• 

t  .  .  . 

>  m  m 

•  0  9  i.  L 

• 

y  •  3  V 


_  •'  V  •  « 

•  y  f  c  c 

C  £  O  O 

C  9- 
Ou 

•  •  y  •  • 

•  ^  O 

•  0  - 

—  0  •  *'  ** 

•  <  «  k  b 

y  «  0 
9V  •' 

am  9  «  y 

«•  k  £  •  u  i 

•  *'««••> 

3 

V  m  9  •  • 


o  o  «  ^  n  w 
».  £ 

C  •  f  •  £  •  f 

c  sllill 


*4 

•  £  • 

.  Q  a 

9  m 

—  k  k 

o»»- 
c  o  • 

•  a 

o 

9  *«  • 

m  ^  -o 

9  9  9  m 


•  « v.  9  9 

•  o  * 

•  ^  k  k 

•»  •>» 

c  c  •  c  c 

»  o  •  •  • 

•  ~  k 

3  9  3  ^  « 

£  8-  • 

o  • 

c  •  - 

ru| 

•.  3 

k  O  ^  >  X 

am  c  m  m 

•  3  k  u 

f  O  k  k 

•  n  k  •  • 

^  9 


k  >*  — 
C  «  <V  <0 
V  ^  n 


4-74 


Figure  4-4.  Sample  DORT  Output  for  the  Two-Meter  Box  Air-Over-Ground  Analysis. 
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Figure  4-4,  (continued) 
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Figure  4-4.  (continued) 


Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 


oalanca  for  ragton  9,  voluma  «  0.8058694-19.  avaraga  density  factor 


lOOOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

>»  •  ‘  I  •  1  .  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦.  I** 

;r<r>Onvn«}10r•*lr>99'»(6tf>460t«tf)nOtf^**^O<^Oc<«aDO*v^‘^tf«O0t^«tn^>9O*‘<e^'^‘O 


«  10  n  *  ift 

«>  O  «  •  « 


OOOOOOOOOOOOOOOOOOOOOOOOOOO 

vtf)nni0nf*)nQ<*>n0ktf)c<«A(0<0O«r)40«0r'^4Dr^oittO 

94DOO9SOi0fl)Oi9Oi0k9i9iAtfiOi9Ol9990>9i0iOiOlO 

d»0lfl»0»0i«l9i»*99«l90>an9tet90»0»«>0i»^0i90 


888oooSoooooo8o8o88§S8o( 


pQOiQtOiQoojvr^cDOioiO^Qf^OQvOQ^teD 

^9tO^Q0>0>^0>0>O>O9*Q9*QQOQQO>9> 
9>0>O^O0i9lOvO^9O>O^OOlOOoOO99i 


88888888888888888888888888888888888888888888888S8S 


•  f  •  $  $  f  < 


000000000000000000000000000^0000000000000000000000 


8r<-  le  ip  u 

o  oo  < 


>000000000000000000000000000000000000-  —  OO 


—  —  —  40tt*^**^O— r-*^®iDi09>no>i£9tO)io®  —  ®0  —  9>i0 

I^^^i0«^fM«“^r)f«<OWO<^OOOiO®®iftf^  —  ^^O'^O^*lf‘iP0>toO— <*>^0O'(^O»»(^»^f-r**e^lr> 
.  —  ^OiAr>ci^®«0t®^®tf)ir>9  —  r^c^®®r«®®®O^><^0'®|<^0't^'^Oa>0'«no®^‘®®®^'®(*>^*n 
>tf>  —  or)®®o®c<i0f'«  —  r»^ir>riOr^®®OO<^Oio<*5t‘*^^*^®O0»f^®^ff»«^m<^if>«f  —  O^r^-n^<T*in 
>^O0®n®®M®®®9®®i00®  —  —  9»10®0^O'><^O'*®  —  ®0^®  —  r)0(®0®9:®  —  r«-« 

«(Ptt(pi/)®in^9«or)<vn<Mc«(Hca  —  -  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  ^®ipr>n 

.OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


•'O®Off'^'^0^^■^^‘®^O®O>o^O^^rt0^«0‘O  —  ®  —  i0i/>0>®r»r>®0> 

•'OO-ff‘«0®®^OO  —  —  —  N®r‘®f^Orf'  —  f^O®**)^— 

8  —  «N®oc<®®  —  n®  —  —  —  ts 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


8  r*r-®®®®®®^^^nr»r>cin«c«M  —  —  —  —  —  —  — 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

p  ♦  . . I  I  t  I  I  t  *  I  t  I  ♦  I  I  I  t  I  t  I  ,  •  •  . . I  I  I  ....  . . 

'O  —  c<^r««rt»  —  ®r»<N®r'O^®r“0  —  —  n®0^c»»  —  ^)^tf>^^n®®o^®^•®  —  f^  —  ®®^^ 

PQ®0v®®O®r)®nO  —  ®0^<^(*>^'®0O^0®V®^*^^^^^^^*^^®®0^‘®^0(*>®0r^9'^‘ 
)0®®r«f<<onOV— v®^<N®®®r‘-n®rxQ®®9®^r>tf)®9i0®(r(Nr>r)9Yr^in  — 

PC  —  —  —  w®0®®0n^®®wn*v®0o®®  —  —  ®^'®®(*>p®0®ol 

:O0>  —  O®— — O— — ^®«®0®n  —  —  •n®®^®00®^0<Nr»®— CM  —  «  —  —  r-^®®c«if'<0®®00 

Of'^^“  —  cpc»®«®  —  r«®c<c^p»  —  o  —  ®®  —  —  —  —  — 

88888888888888888888888888888888888888888888888888 

:§§§§§§§8§§§§§§§§§iii§i§iii§ii§i§i§§8ii§§§§§§8i8i8§ 


ooooooooooooooooooooooooooocoooooooooooooooooooooo 

.88888888888888888888888888888888888888888888888888 


:8§§888§8! 


••ftffHf; 


•OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


•OOOOOOOOOOOOOOOOOOOOOOOOOOO QOOOOOOOOOOOOOOOOOOOOOO 

3^  —  ^n®n®nS^S®®®^®  —  —  ^®®v®®S^®^|^^'^<^9'^^<^O^i0O®®i^®®OO®^^ 
—  ®c»^®®rc®®®ri  —  ®e«®®^«v—  ®^f^®®c^^cM®  —  ®®«®— ®n^®nO  —  ® 

•  <M®Or'®®®vn<^®®9®  —  0®®9®  —  ®®®®f*®'~^*f^Opr'‘CMO®®®®0^r-n®  —  n®r^®p‘4 
n®®«9(Nr«r‘®r<*®^®®0^<^®0®^^*^‘®®®—  ^0®^C^®®®Or«ir®®r>r«-  —  —  ®®4>nn 
xr>«r«®®<M®«®<MC<0  —  —  ®^^^®0®09®r>'®®  —  —  <^O^t>cMr«®®®®C(N  —  ^OcnOsc^O 

—  «M®Mr®®r.4®®0— ri®^®®t>“®®0-*xn^®®f^«®0-r'«®^®®p.-®®o  —  <>in^®®r*-®®0 
tl  —  —  —  —  —  —  —  —  —  — 


4-95 


Figure  4-4.  (continued) 
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Figure  4-4.  (continued) 
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5.0  VISTA:  A  VEHICLE  INPUT  SOURCE  TRANSFORMATION  AND  ASSEMBLY  CODE* 


5.1  INTRODUCTION  TO  VISTA 


5.1.1  Background 

The  Vehicle  X^put  Source  Transformation  and  Assembly  (VISTA)  code 
processes  directional  fluences  from  a  two-dimensional  directional 
fluence  file  produced  by  DORT’.  These  fluences  in  the  DORT  fluence  file 
are  modified  and  reformatted  for  use  in  the  forward -adjoint  folding 
process  of  the  DRC  module  in  MASH  or  for  use  in  DOTTOR^  to  produce  a 
boundary  source  for  TORT^. 

VISTA  was  developed  by  W.  A.  Rhoades  to  replace  the  VISA  module  of  the 
Vehicle  Code  System  (VCS)^*®  as  the  code  for  processing  the  scalar  and 
angular  fluences  from  DORT  and  the  uncollided  fluence  file  from  6RTUNCL. 
An  additional  incentive  for  the  development  of  VISTA  was  to  have  a  code 
capable  of  processing  the  DORT  directional  flux  files  for  eventual  use 
in  the  TORT  code.  VISTA  represents  an  improvement  to  VISA  through 
increased  generalization,  and  the  addition  of  several  new  output 
options.  In  particular,  VISTA  can  produce  a  file  formatted  for  use  in 
the  DRC  module  of  MASH,  or  a  file  formatted  for  use  in  DOTTOR  (a  code 
which  transforms  2-D  fluence  information  into  a  3-D  boundary  source  at 
or  near  the  coupling  surface  for  use  in  TORT).  Furthermore,  VISTA  can 
copy  old  MASH  or  DOTTOR  formatted  files  to  new  files,  convert  MASH 
formatted  output  files  to  DOTTOR  formatted  output  files,  and  combine  two 
MASH  or  DOTTOR  formatted  files  into  new  DRC  or  DOTTOR  formatted  files. 

The  basic  approach  in  VISTA  is  similar  to  that  of  an  unpublished  code 
from  the  1960's  named  LIMBO.  The  exact  authors  of  LIMBO  are  unknown, 
but  they  may  have  included  R.  D.  Rodgers,  F.  R.  Mynatt,  and/or  M.  L. 
Gritzner.  Credit  for  the  preservation  and  availability  of  LIMBO  belongs 
to  J.  V.  Pace,  III. 


5.1.2  Method  Used 

Because  of  the  large  volume  of  data,  it  is  not  practical  to  produce 
properly-normalized  directional  fluence  files  from  DORT.  Further,  when 
the  GRTUNCL  code  is  used  to  produce  a  first-collision  source  for  DORT, 
the  uncollided  fluence,  i.e.,  the  fluence  resulting  from  the  particle 
flight  before  the  first  collision,  is  not  included  in  the  DORT  output. 


*VISTA  is  an  updated  and  undocumented  version  of  the  VISA  program  found 
in  the  following  reference:  W.  A.  Rhoades,  M.  B.  Emmett,  G.  W. 
Morrison,  J.  V.  Pace,  III,  and  L.  M.  Petrie,  "Vehicle  Code  System 
(VCS)  User's  Manual,"  ORNL-TM-4648,  Oak  Ridge  National  Laboratory, 
(August  1974). 
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VISTA  repairs  the  normalization  problem  by  calculating  the  scalar 
fluence  for  each  mesh  ce11,  comparing  this  with  the  scalar  fluence  file 
produced  by  DORT,  and  normalizing  the  directional  fluence  such  that  it 
corresponds  exactly  to  the  DORT  result.  Then,  the  uncollided  fluence 
from  GRTUNCL  is  added  to  the  directional  fluence  in  the  direction 
applicable  at  each  mesh  cell.  The  processing  can  be  restricted  to  a 
subset  of  the  space  mesh,  reducing  the  volume  of  the  output  file. 

As  the  new  data  are  calculated,  they  are  dumped  to  a  random-access 
scratch  file.  Then,  the  data  are  retrieved  in  the  order  required  by  the 
requested  output  format  and  transferred  to  the  output  file.  On  some 
computer  systems,  reading  and  writing  in  the  sorting  step  can  proceed 
concurrently.  For  convenience,  limited  ability  to  transform  between 
formats  is  included.  Certain  input  and  output  files  can  be  either 
formatted  or  unformatted  as  a  convenience  in  using  data  shipped  between 
computers  through  a  network. 


5.2  VISTA  INPUT  REQUIREHENTS 

The  following  input  cards  are  required  to  execute  VISTA.  Default  values 
are  in  brackets  ([]). 


Title  Card  (72  alphanumeric  character  description) 
INPUT  DATA  BLOCK  I 

1$  Array  -  Integer  Control  Parameters 


NIP  number  of  radial  intervals  output 

JPL  first  axial  interval  output 

JPU  last  axial  interval  output 

NED  print  edit  control  parameter 

*  0  implies  no  effect 
>  0  implies  print  NED  source  groups 
NORM  scalar  fluence  normalization  control  flag 

0/1  =  normalize/do  not  normalize  to  scalar  fluence 

5  — 

ISGRP  number  of  groups  on  uncollided  fluence  file 
-  0  implies  use  collided  fluence  only 
<  0  implies  use  uncollided  fluence  only 
NFLSV  logical  unit  number  of  scalar  fluence  input,  [1] 

NAFT  logical  unit  number  of  angular  fluence  input,  [2] 

NUNCL  logical  unit  number  of  uncollided  fluence  input,  [3] 

NDATA  logical  unit  number  of  source  output,  [4] 
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10  — 


N5  logical  unit  number  for  card  input,  [5] 

N6  logical  unit  number  for  printed  output,  [6] 

NJl  first  axial  interval  input  control  flag 
-  0  implies  set  NJl  -  1 

>  0  implies  first  axial  interval  input 
NJM  last  axial  interval  input  control  flag 

>  0  implies  set  NJM  «  JM 

>  0  implies  last  axial  interval  input 
NAFTI  NAFT  missing  groups  control  flag 

<  0  implies  first  NAFTI  groups  =  1.0,  all  others  =  0.0 
=  0  implies  no  effect 

>  0  implies  number  of  groups  missing  at  beginning  of  NAFT 


NTYPE 


NEUI 

NGAMX 


fluence  file  output  option  control  flag 
=  0  implies  process  DORT  files  on  NFLSV,  NAFT,  NUNCL 
into  MASH  output  on  NDATA 

*  1  implies  process  DORT  files  on  NFLSV,  NAFT,  NUNCL 

into  DOTTOR  output  on  NDATA 

*  10  implies  copy  MASH  output  file  on  NFLSV  to  a  new 

MASH  output  file  on  NDATA 

*  11  implies  copy  DOTTOR  output  file  on  NFLSV  to  a  new 

DOTTOR  output  file  on  NDATA 
■  21  implies  convert  MASH  output  file  on  NFLSV  to  a 
DOTTOR  output  file  on  NDATA 

*  30  implies  combine  MASH  output  files  on  NUNCL  and 

NFLSV  to  a  new  MASH  output  file  on  NDATA 

*  31  implies  combine  DOTTOR  output  files  on  NUNCL  and 

NFLSV  to  a  new  DOTTOR  output  file  on  NDATA 
last  neutron  group  control  flag 
(required  if  NGAMX  >  0  and  NTYPE  -  0  or  1) 

<  0  implies  gamma  output  only 

>  0  implies  last  neutron  group  on  input  fluence  files 
initial  missing  gamma  group  control  flag 


-  0  implies  no  effect 
>  0  implies  NGAMX  initial  gamma 
groups  missing  on  all  input 
files  (NFLSV,  NAFT,  and  NUNCL) 


h  NTYPE-0  or  1 


»  0  implies  no  effect 
>  0  implies  NGAMX  initial  gamma 

groups  missing  on  input  file  NUNCL 


h  NTYPE=30  or  31 


E  (terminate  array  with  "E") 

T  (terminate  block  with  "T")  [T  always  required] 
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INPUT  DATA  BLOCK  2  [omit  data  block  if  NTYPE  >  10] 


2*  Array 

SH  height  of  point  source 

HSA  cosine  of  angle  with  z  axis  Into  which  source  Is  emitted 

XNEUT  NFLSV  fluence  file  multiplier  (if  NTYPE  -  30  or  31)  [1.0] 
XGAM  NUNCL  fluence  file  multiplier  (if  NTYPE  =  30  or  31)  [1.0] 

E  (terminate  array  with  "E") 

4$  Array 

IVAL  values  of  radial  intervals  to  be  output  (NIP  entries) 

T  (terminate  block  with  "T")  [T  always  required] 


5.3  VISTA  INPUT  DATA  NOTES 

Except  for  the  title  card,  all  data  are  read  using  the  FIDO  input 
system.  A  detailed  description  of  the  FIDO  input  system  is  given  in 
Appendix  A.  Data  arrays  are  entered  in  blocks,  each  terminated  by  a 
"T".  Unused  data  arrays  (e.g.,  2*  and  4$  if  NTYPE>«10)  are  not  entered, 
but  a  "T"  must  still  be  entered  to  signal  the  termination  of  each  block. 

NIP  The  number  of  radial  intervals  output  should  encompass  the  TORT 
geometry  for  a  DOTTOR  formatted  source  file.  At  present,  the  DRC  module 
in  MASH  only  uses  one  radial  interval  for  the  source.  Therefore,  the 
value  for  NIP  is  usually  set  to  one,  although  it  is  not  required  to  be 
just  one.  It  should  be  noted  that  a  new  version  of  DRC  is  in  the 
testing  stage  that  will  allow  interpolation  in  the  DORT  radial  mesh  and 
then  NIP  will  have  the  same  meaning  for  MASH  as  it  does  for  DOTTOR. 

NFLSV,  NAFT,  and  NUNCL  Logical  unit  numbers  for  these  input  fluence 
files  specified  less  than  zero  (i.e.,  negative  entries)  imply  FORMATTED 
or  BCD  files  instead  of  binary  files. 

JPL  and  JPU  The  output  axial  intervals  must  be  equal  to,  or  a  subset 
of,  the  input  axial  intervals  (NJl  and  NJM)  from  the  DORT  file.  These 
intervals  should  also  encompass  the  TORT  or  MASH  geometry  in  the  Z 
direction. 

NED  This  parameter  controls  the  print  of  the  output  source  file  by 
group.  Care  should  be  taken  in  using  this  control  flag  because  it  could 
produce  large  amounts  of  output. 
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NJl  and  NJN  These  parameters  must  correspond  to  the  parameters  JDIRF 
and  JDIRL  in  the  62$  array  of  DORT.  These  parameters  in  DORT  give  the 
axial  intervals  that  are  written  out  on  the  directional  fluence  file. 
Consequently,  the  same  NJl  and  NJM  values  must  be  read  as  input  into 
VISTA. 

MAFTI  This  parameter  is  primarily  used  to  tell  the  number  of  initial 
groups  on  NAFT  which  had  a  zero  source.  For  instance,  if  the  initial 
source  distribution  used  in  GRTUNCL  and  DORT  did  not  have  any  values  in 
the  first  eight  groups,  then  NAFTI  would  equal  eight  (assuming  no 
upscatter) . 

NEUI  This  parameter  is  used  to  output  a  gamma  only  file  from  a  coupled 
neutron-gamma  file  if  input  negative. 

NOTE;  If  you  execute  a  coupled  neutron-gamma  DORT  problem 

with  all  neutron  source  groups  zero  and  with  or  without 
gamma  source  groups  zero,  you  must  output  a  full 
neutron-gamma  coupled  source  file.  You  cannot  output  a 
gamma  only  source  file. 

NGANX  This  parameter  is  only  used  to  indicate  missing  (or  deleted) 
gamma  groups  from  the  input  fluence  files. 

SH  The  source  height  entered  here  must  correspond  to  the  source  height 
used  in  GRTUNCL  and/or  DORT. 

IVAL  This  parameter  should  correspond  to  the  NIP  interval (s)  of  the 
DORT  mesh  required  to  encompass  the  TORT  geometry,  or  the  radial 
distance  for  the  source  for  MASH  required  by  the  DRC  module. 


5.4  VISTA  INPUT  FLUENCE  FILE  FORMAT 

As  stated  earlier,  VISTA's  primary  function  is  to  process,  modify,  and 
reformat  directional  fluence  files  from  the  DORT  code  into  a  suitable 
format  for  use  in  either  MASH  or  DOTTOR.  Also,  VISTA  can  perform  a 
number  of  utility  functions  (i.e.,  copy,  convert,  and  combine)  on 
previously  processed  VISTA  files.  Consequently,  VISTA  will  read  several 
different  types  of  input  file  formats  depending  on  the  value  of  NTYPE. 
For  this  section,  only  the  primary  function  of  VISTA  will  be  addressed. 
The  MASH  formatted  source  file  will  be  addressed  in  the  next  section, 
and  the  interested  reader  should  consult  the  DOTTOR  manual  (Ref.  2)  for 
information  on  the  DOTTOR  formatted  source  file. 

To  accomplish  its  primary  function,  VISTA  reads  a  DOT  IV  formatted  file 
-  referred  to  as  the  VARSOR  format  in  this  document.  Both  the 
uncollided  fluence  on  unit  NUNCL  and  the  scalar  and  directional  fluence 
files  on  NFLSV  and  NAFT,  respectively,  are  written  in  this  format.  The 
VARSOR  format  is  defined  in  the  following  manner: 
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C  -VSOROOlO 

C  VSOR0020 

r***********************ir***************************************wcnnnn-3n 

C  REVISED  10  NOV  76  -VSOR0040 

C  -VSOR0050 

CF  VARSOR  -VSOR0060 

CE  VARIABLE  MESH  SOURCE  MOMENT  DATA  -VSOR0070 

C  -VSOR0080 

C  VSOROlOO 

CD  ORDER  OF  GROUPS  IS  BY  DECREASING  ENERGY  VSOROllO 

CD  I  IS  THE  FIRST-DIMENSION  INDEX  VS0R0120 

CD  J  IS  THE  SECOND-DIMENSION  INDEX  VSOR0130 

CD  JM=1  FOR  1 -DIMENSIONAL  GEOMETRY  VSOR0140 

CD  IF  ISOP.GT.O,  SOURCE  IS  FIRST-COLLISION  TYPE  VS0R0150 

C  VSOR0160 

C . VS0R0170 

CS  FILE  STRUCTURE  -VSOR0180 

CS  -VSOR0190 

CS  RECORD  TYPE  PRESENT  IF  -VSOR0200 

CS  . VS0R0210 

CS  FILE  IDENTIFICATION  ALWAYS  -VSOR0220 

CS  FILE  LABEL  ALWAYS  -VS0R0230 

CS  FILE  CONTROL  ALWAYS  -VS0R0240 

CS  FILE  INTEGER  PARAMETERS  ALWAYS  -VSOR0250 

CS  -VSOR0260 

CS  **************(repeat  over  all  GROUPS)  -VSOR0270 

CS  *  SOURCE  MOMENTS  ALWAYS  -VSOR0280 

CS  ****************  -VSOR0290 

C  -VS0R0300 

CS  ************** (REPEAT  OVER  ALL  GROUPS)  -VSOR0310 

CS  *  SCALAR  UNCOLLIDED  FLUX  ISOP.GT.O  -VS0R0320 

CS  ****************  -VSOR0330 

C  -VS0R0340 

C . VSOR0350 

C  VSOR0360 

C  VSOR0370 

C . VSOR0380 

CR  FILE  IDENTIFICATION  -VSOR0390 

C  -VS0R0400 

CL  HNAME,(HUSE(I),I«1,2),IVERS  -VS0R0410 

C  -VSOR0420 

CW  1+3*MULT-NUMBER  OF  WORDS  -VSOR0430 

C  -VSOR0440 

CD  HNAME  HOLLERITH  FILE  NAME  -  VARSOR  -  (A6)  -VSOR0450 

CD  HUSE(I)  HOLLERITH  USER  IDENTIFICATION  -  (A6)  -VS0R0460 

CD  IVERS  FILE  VERSION  NUMBER  -VSOR0470 

CD  MULT  DOUBLE  PRECISION  PARAMETER  -VSOR0480 

CD  1-  A6  WORD  IS  SINGLE  WORD  -VSOR0490 

CD  2-  A6  WORD  IS  DOUBLE  PRECISION  WORD  -VS0R0500 

C  -VSOR0510 

C . VSOR0520 
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C  VS0R0530 

C  VSOR0540 

C . VSOR5550 

C  -VSOR0560 


CR 

FILE  LABEL 

-VS0R0570 

C 

-VS0R0580 

CL 

DATE, USER, CHARGE, CASE, TIME, (TITL(I) , I-l , 12) 

-VS0R0590 

C 

-VS0R0600 

CW 

17*MULT=NUMBER  OF  WORDS 

-VSOR0610 

C 

-VS0R0620 

CD 

DATE 

AS  PROVIDED  BY  TIMER  OPTION 

4  - 

(A6) 

-VSOR0630 

CD 

USER 

AS  PROVIDED  BY  TIMER  OPTION 

5  - 

{A6) 

-VSOR0640 

CD 

CHARGE 

AS  PROVIDED  BY  TIMER  OPTION 

6  - 

(A6) 

-VSOR0650 

CD 

CASE 

AS  PROVIDED  BY  TIMER  OPTION 

7  - 

(A6) 

-VS0R0660 

CD 

TIME 

AS  PROVIDED  BY  TIMER  OPTION 

8  - 

(A6) 

-VS0R0670 

CD 

TITLd) 

TITLE  PROVIDED  BY  USER 

- 

(A6) 

-VSOR0680 

C  -VSOR0690 

C . - . - . VS0R0700 

C  VS0R0710 

C  VSOR0720 

C . - . VSOR0730 

CR  FILE  CONTROL  VS0R0740 

C  -VSOR0750 

CD  IGM,NEUT, JM, LM, IMA.MMA, ISM. IMSISM, ISOP, (IDUM(N) ,N=1 , 16)  -VSOR0760 

C  -VSOR0770 

CW  25-NUMBER  OF  WORDS  -VSOR0780 

C  -VSOR0790 

CD  IGM  NUMBER  OF  ENERGY  GROUPS  -VS0R0800 

CD  NEUT  LAST  NEUTRON  GROUP  -VS0R0810 

CD  (IGM  IF  ALL  NEUTRONS,  0  IF  ALL  GAMMA)  -VS0R0820 

CD  JM  NUMBER  OF  SECOND-DIMENSION  (J)  INTERVALS  -VSOR0830 

CD  LM  MAXIMUM  LENGTH  OF  MOMENT  EXPANSION  -VS0R0840 

CD  IMA  MAXIMUM  NUMBER  OF  FIRST-DIMENSION  INTERVALS  -VSOR0850 

CD  MMA  NUMBER  OF  BOUNDARY  DIRECTIONS  -VSOR0860 

CD  ISM  NUMBER  OF  I -BOUNDARY  SETS  -VSOR0870 

CD  IMSISM  TOTAL  NUMBER  OF  I-INTERVALS,  ALL  I-SETS  -VSOR0880 

CD  ISOP  UNCOLLIDED  FLUX  FLAG  -VSOR0890 

CD  0  -  NO  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VSOR0900 

CD  1  -  UNCOLLIDED  FLUX  RECORDS  PRESENT  -VS0R0910 

CD  IDUM{I)  ARRAY  SET  TO  0  -VSOR0920 

C  -VSOR0930 

C . VSOR0940 

C  VSOR0950 

C  VSOR0960 

C . VSOR0970 

CR  FILE  INTEGER  PARAMETERS  -VSOR0980 

C  -VSOR0990 

CL  (LMBIG(IG),IG-1,IGM),  -VSORIOOO 

CL  *(IMBIS(IS),IS-1,ISM),(ISET(J),J=1,JM)  -VSORlOlO 

C  -VSOR1020 

CW  IGM+ISM+JM-NUMBER  OF  WORDS  -VSOR103O 

C  -VSOR1040 
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CD  LMBIG{IG)  LENGTH  OF  MOMENT  EXPANSION  FOR  GROUP  IG  -VSOR1050 

CD  IMBIS(IS)  NUMBER  OF  INTERVALS  IN  ISET  IS  -VS0R1060 

CD  ISET(J)  I -SET  ASSIGNED  TO  INTERVAL  J  -VSOR1070 

C  -VS0R1080 

C . VS0RI090 

C  VSORllOO 

C  VSORIIIO 

C . - . VS0R1120 

CR  SOURCE  MOMENTS  VS0R1130 

C  -VS0R1140 

CL  ((SORM(I,L),I=I,IMS),L=I,LMS)  -VSOR1150 

C  -VSOR1160 

CW  IMS*LMS=NUMBER  OF  WORDS  -VSOR1170 

C  -VS0R1180 

C  DO  1  J=1,JM  -VSOR1190 

C  1  READ(N)  *LIST  AS  ABOVE*  -VS0R1200 

C  -VSOR1210 

CD  SORM  SOURCE  BY  INTERVAL  AND  MOMENT  INDEX  -VSOR1220 

CD  IMS  IMBIS(IS)  FOR  IS  CORRESPONDING  TO  J  -VSORI230 

CD  LMS  LMBIG(IG)  -VS0R1240 

C  -VS0R1250 

C . VS0R1260 

C  VSOR1270 

C  VSOR1280 

C . VSOR1290 

CR  SCALAR  UNCOLLIDED  FLUX  -VSOR1300 

r  -v^nRi'^in 

CL  (FLUM{1),I=1,IMS)  -VSOR1320 

C  -VS0R1330 

CW  IMS»NUMBER  OF  WORDS  -VS0R1340 

C  -VSOR1350 

C  DO  1  J-I,JM  -VSOR1360 

C  1  READ(N)  *LIST  AS  ABOVE*  -VSOR1370 

C  -VS0R1380 

CD  FLUX  UNCOLLIDED  FLUX  BY  INTERVAL  -VSOR1390 

C  -VSOR1400 

C . VS0R1410 

C  VSOR1420 

C  VSOR1430 

C  VSOR1440 

C  VSOR1450 

C  END  VSOR1460 


5.5  VISTA  OUTPUT  FILES 

The  VISTA  code  produces  two  types  of  output  file  -  a  DOTTOR  formatted 
source  file  and  a  MASH  formatted  source  file.  The  DOTTOR  formatted 
source  file  will  not  be  addressed  in  this  manual,  and  the  interested 
reader  should  consult  Reference  2.  The  MASH  formatted  source  file  is  as 
follows: 
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Record  1:  TITLE,  TDOT  -  144  Alphanumeric  Characters 
Record  2: 

MM  -  Number  of  quadrature  directions 

IM  -  Number  of  radial  intervals 

JM  -  Number  of  axial  intervals 

IGM  -  Number  of  energy  groups 

IGP  -  Number  of  energy  groups  plus  1 

MMDN  -  Number  of  directions  downward 

NJP  -  Number  of  axial  fluences 

ISH  -  Height  of  source  point 

ISHA  -  Cosine  of  source  angle  (with  Z-axis) 

NIP  -  Number  of  radial  fluences 

JPL  -  Index  of  first  J  interval  on  file 

JPU  -  Index  of  last  J  interval  on  file 
11  additional  VISTA  input  values  not  used  in  MASH 

Record  3:  IVAL  -  Array  of  radial  interval  numbers  being  output 

Record  4:  [MM  values  per  array;  3*MM  total  values] 

WT  -  Weights  from  DORT  quadrature 

AMU  -  Mu's  from  DORT  quadrature 

ETA  -  Eta's  from  DORT  quadrature 

Record  5:  [NIP  +  NJP  values] 

R  -  Midpoints  of  radial  bins 

Z  -  Midpoints  of  axial  bins 

Record  6  to  END;  [NANG*NJFLX  values  per  record] 

[IGM  records  per  radius,  and  NIFLX  radii] 

FLUX  -  Directional  fluences 


It  should  be  noted  that  much  of  the  information  on  the  DOTTOR  formatted 
source  file  is  similar  to  the  information  given  above  in  the  MASH 
formatted  source  file. 


5.6  LOGICAL  UNIT  REQUIREMENTS 

Below  is  a  listing  of  the  files  required  to  execute  a  VISTA  case  along 
with  the  default  values  used  in  the  code.  In  setting  up  a  VISTA  case, 
efforts  must  be  made  for  these  units  to  be  available. 


1. 

2. 

3. 

4. 

5. 

6. 
7. 


Logical  Unit  NFLSV  -  DORT  Scalar  fluence  input  file 
Logical  Unit  NAFT  -  DORT  directional  fluence  input  file 
Logical  Unit  NUNCL  -  GRTUNCL  uncollided  fluence  input  file 
Logical  Unit  NDATA  -  MASH  or  DOTTOR  formatted  output  source 

file 

Logical  Unit  91  -  SCRATCH 

Logical  Unit  6  -  Printed  Output 

Logical  Unit  5  -  Card  Input 


Default  logical  unit  assignments  for  the  first  four  data  files  are  1,  2, 
3,  and  4. 


NOTE:  Logical  unit  numbers  for  the  input  fluence  files 
(NFLSV,  NAFT,  NUNCL)  specified  less  than  zero 
(i.e.,  negative  entries)  imply  FORMATTED  or  BCD 
files  instead  of  binary  files. 


5.7  PROGRAMMER  INFORMATION 


5.7.1  Inter-machine  Adaptability 

The  VISTA  code  is  intended  to  be  easily  adaptable  to  any  type  of 
sophisticated  computer,  and  yet  to  take  advantage  of  certain  localized 
structural  features  which  may  be  machine-dependent. 

In  general,  the  guidelines  of  ANS-STD. 3-1971^  are  followed.  This 
requires  general  adherence  to  a  simple,  standard  FORTRAN  language  except 
where  deviations  provide  important  improvements  in  capability  and  can  be 
documented.  In  addition,  machine-dependent  features  have  been  kept 
localized  and  have  not  been  included  in  the  subroutines  which  perform 
actual  computation. 

The  recommended  procedures  of  the  Committee  on  Computer  Code 
Coordination  (CCCC)*'®  have  been  followed  where  practical.  Compliance 
with  these  standards  has  been  incomplete  where  cost  was  prohibitive,  the 
nature  of  the  codes  did  not  allow  it,  or  the  expected  level  of 
performance  could  not  be  obtained  in  that  fashion. 

Where  minor  or  certain  machine-dependent  features  are  required, 
alternative  features  are  enclosed  in  pairs  of  3-character  "language 
flags."  The  alternative  statements  remain  in  the  source  program,  with 
inappropriate  sections  transformed  into  conment  statements.  If  the  code 
is  set  up  for  IBM  operation,  for  example,  it  might  contain: 

CIB 

ENTRY  IBCDC(H,E,L,P) 

CIB 
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CDC 

C  ENTRY  IBCDC 

CDC 


The  corresponding  CDC  configuration  would  be: 


CIB 

C  ENTRY  IBCDC{H,E,L,P) 

CIB 

CDC 

ENTRY  IBCDC 
CDC 


All  versions  of  a  given  procedure  are  thus  available  for  inspection  by 
all  users.  The  selection  of  options  is  made  by  a  computer  program  at 
distribution  time.  A  listing  of  machine-dependent  sections  can  also  be 
prepared  in  that  process. 

The  language  flags  achieve  the  major  objective  of  having  a  single, 
unified  source  for  each  program  which  is  maintained  for  all  users.  With 
these  provisions,  the  basic  FORTRAN  programs  are  operable  on  IBM,  CDC, 
UNIVAC,  CRAY,  Amdahl,  and  other  computers,  except  that  system-dependent 
service  routines  as  specified  by  CCCC  must  be  provided. 

Optional  packages  and  procedures  which  provide  enhanced  convenience  are 
also  available.  The  optional  run-time  storage  allocation  requires 
system-dependent  routines.  Instructions  for  installing  these  options 
are  distributed  with  the  source  programs.  All  known  users  at  this  time 
use  all  of  the  optional  enhancements  available  to  them.  Even  so,  the 
basic  operation  with  FORTRAN  routines  plus  the  CCCC  package  remains 
available  if  needed. 


5.7.2  Service  Subroutines 

Certain  standard  service  subroutines  are  specified  by  the  CCCC  for  use 
in  .  eactor  physics  codes.  The  service  routines  used  in  these  codes 
include: 


TIMER 

REED 

RITE 

DRED 

DRIT 


Provides  timing  and  job  identification  data 
Provide  sequential  access  to  data  files 

Provide  random  access  to  data  files 
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DOPC 


Provides  initiating,  closing,  and  certain  repositioning 
of  data  files 


CRED 

CRIT 


Provide  block  transfer  of  data  between  fast  and  slow 
memory. 


Many  of  these  subrou  ines  also  call  other  subroutines  Many  are 
entirely  system  dependent.  Each  configuration  to  be  distributed 
contains  an  appropriate  set  of  service  subroutines,  insofar  as  possible. 
The  realities  of  computing  environments  may  require  local  modification 
or  substitution.  The  specifications  given  in  Reference  6,  together  with 
extensive  in-stream  comments,  provide  guides  for  such  modification. 
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5.9  SAMPLE  PROBLEM 

The  sample  problem  demonstrates  the  processing  of  the  DORT  and  GRTUNCL 
fluence  files  from  the  calculation  of  the  air-over-ground  environment 
for  the  two-meter  box  experiments  at  400  meters.’  Figure  5-1  depicts  a 
simple  diagram  of  which  portion  of  the  DORT  geometry  is  being  processed 
for  output  from  VISTA.  A  complete  listing  of  the  input  cards  for  the 
sample  problem  is  given  in  Figure  5-2,  and  some  selected  output  is  shown 
in  Mgure  5-3. 

In  viewing  Figure  5-2,  the  input  illustrates;  1  radial  interval  output 
(NIP),  DORT  interval  13  as  the  first  axial  interval  output  (JPL),  and 
DORT  interval  25  as  the  last  axial  interval  output  (JPU).  No  source 
groups  were  printed  (NED)  and  the  output  fluences  were  to  be  normalized 
to  the  scalar  fluence  (NORM).  There  were  69  energy  groups  (I6M),  DORT 
interval  13  was  the  first  axial  interval  input  (NJl),  and  DORT  axial 
interval  25  was  the  last  axial  interval  input  (NJM).  There  were  no 
groups  missing  in  the  input  directional  fluence  file  (NAFTI),  46  neutron 
energy  groups  (NEUI),  and  no  initial  gamma  groups  missing  (NGAMX).  A 
MASH  formatted  output  source  file  was  requested  (NTYPE=0).  All  comments 
after  the  slash  (/)  are  ignored  in  FIDO  input  and  are  only  useful  for 
quick  identification  of  the  input  parameters.  Finally,  the  VISTA  sample 
input  in  Figure  5-2  shows  a  source  height  (from  GRTUNCL)  of  16.143 
meters  (SH)  and  a  value  of  50  for  the  DORT  radial  interval  (IVAL). 

The  selected  VISTA  output  shown  in  Figure  5-3  first  illustrates  the 
input  parameters  read  in  the  first  two  data  blocks  along  with  some  of 
the  parameters  obtained  from  the  DORT  input  directional  fluence  files. 
The  memory  requirements  are  also  given  in  this  output.  This  output  is 
followed  by  an  "angle  number  by  DORT  interval"  array  which  represents 
the  particular  direction  in  the  DORT  quadrature  of  the  uncollided 
component  of  the  fluence.  This  array  is  followed  by  more  information 
from  the  DORT  directional  fluence  file,  i.e.,  quadrature  information, 
radial  position  of  the  interval  IVAL  (400  meters),  and  the  axial 
positions  corresponding  to  the  axial  intervals  input  (NJl  and  NJM)  and 
output  (JPL  and  JPU).  Finally,  the  output  illustrates  the  progress  of 
the  source  output  reformatting  (and  normalization  if  selected)  by  group. 
The  source  is  written  to  the  SCRATCH  unit  (91)  and  after  completion 
written  to  the  output  unit  NDATA.  If  source  group  edits  (NED>0)  had 
been  requested,  they  would  appear  at  this  point.  One  check  for  proper 
execution  of  VISTA  is  by  examining  the  scaling  adjustment  factors 
printed  by  group.  These  factors  should  be  on  the  order  of  10'^  or  less 
if  correct  information  (input)  has  been  given  and  there  is  a  reasonable 
degree  of  convergence  in  the  DORT  directional  fluence  files. 
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aprf  aog/400m/simple  topo/16.14m  sh/34%  ground  nioisture/10-24-89(a)  air 

1$$  1  13  25  0  0  /nip, jpl ,jpu,ned, norm 

69  21  22  23  24  /isgrp,nflsv,naft,nuncl ,ndata 
5  6  13  25  0  /n5,n6,njl,njm,naftm 
0  46  0  /ntype.neui ,ngamx 
e  t 

2**  1614.3  0  e  /sh,hsa 

4$$  50  e  /ival 
t 


Figure  5-2.  Sample  VISTA  Input  for  the 
Two-Meter  Box  Air-Over-Ground  Analysis. 
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Figure  5-3.  Sample  VISTA  Output  for  the  Two-Meter  Box  Air-Over-Ground  Analysis. 
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Figure  5-3.  (continued) 
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Figure  5-3.  (continued) 
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Figure  5-3.  (continued) 
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Figure  5-3.  (continued) 
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Figure  5-3.  (continued) 
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Figure  5-3.  (continued) 


6.0  NORSE:  A  NULTIGROUP  OAK  RIDGE  STOCHASTIC  EXPERIMENT  CODE* 


6.1  INTRODUCTION  TO  NORSE 

The  Multigroup  Oak  Ridge  Stochastic  Experiment  code  (MORSE)’  is  a 
multipurpose  neutron  and  gamma-ray  transport  Monte  Carlo  code.  Some  of 
its  features  include  the  ability  to  treat  the  transport  of  either 
neutrons  or  gamma  rays  or  a  coupled  neutron  and  secondary  gamma- ray 
problem.  The  MORSE  code  also  incorporates  multigroup  cross  sections,  an 
option  of  solving  either  the  forward  or  adjoint  problem,  and  modular 
input-output,  cross  section,  analysis,  and  geometry  modules.  MORSE 
contains  time  dependence  for  both  shielding  and  criticality  problems,  an 
albedo  option  at  any  material  boundary,  a  three-dimensional 
combinatorial  geometry  package,  and  several  types  of  optional  importance 
sampling.  Finally,  MORSE  includes  a  set  of  debugging  routines 
accessible  from  anywhere  in  the  program. 

Traditionally,  Monte  Carlo  codes  for  solving  neutron  and  gamma-ray 
transport  problems  have  been  separate  codes.  This  has  been  due  to  the 
physics  of  the  interaction  processes  and  the  corresponding  cross-section 
information  required.  However,  when  multigroup  cross  sections  are 
employed,  the  energy  group  to  energy  group  transfers  contain  the  cross 
sections  for  all  processes.  Also,  for  anisotropic  scattering  each 
group-to-group  transfer  has  an  associated  angular  distribution  which  is 
a  weighted  average  over  the  various  cross  sections  involved  in  the 
energy  transfer  process.  Thus,  these  multigroup  cross  sections  have  the 
same  format  for  both  neutrons  and  gamma  rays.  In  addition,  the 
generation  of  secondary  gamma  rays  may  be  considered  as  just  another 
group-to-group  transfer.  Therefore,  using  multigroup  cross  sections, 
the  logic  of  the  random  walk  process  (the  process  of  being  transported 
from  one  collision  to  another)  is  identical  for  both  neutrons  and  gamma 
rays. 

The  use  of  multigroup  cross  sections  in  a  Monte  Carlo  code  means  that 
the  effort  required  to  produce  cross-section  libraries  is  reduced. 
Coupled  neutron  gamma-ray  cross-section  libraries  are  available  from  the 
Radiation  Shielding  Information  Center  at  Oak  Ridge  National  Laboratory. 

Cross  sections  may  be  read  in  either  the  DTF-IV^  format  or  ANISN^  and 
DOT*'*  format.  The  ANISN/DOT  formatted  cross-section  file  may  be  in 
either  fixed  or  free  form.  The  auxiliary  information  giving  the  number 
of  groups,  elements,  Legendre  coefficients,  etc.,  is  used  to  produce  the 
necessary  probability  tables  needed  by  the  random  walk  module.  The 
possible  transport  cases  that  can  be  treated  are  neutron  only,  gamma  ray 
only,  coupled  neutron-gamma  ray,  gamma  ray  from  a  coupled  set,  and 


*M.  8.  Emmett,  "The  MORSE  Monte  Carlo  Radiation  Transport  Code 
System,"  ORNL-4972  (1975),  0RNL-4972/R1  (1983),  0RNL-4972/R2  (1984), 
Oak  Ridge  National  Laboratory. 
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fission,  with  all  of  the  above  options  for  either  a  forward  or  adjoint 
case  and  for  isotropic  or  anisotropic  scattering  up  to  a  expansion 
of  the  angular  distribution.  The  option  of  storing  the  Legendre 
coefficients  for  use  in  a  next-event  estimator  is  also  provided. 

While  the  capabilities  and  versatility  of  MORSE  are  well  documented  for 
applications  to  a  wide  variety  of  problems  in  both  the  forward  and 
adjoint  mode  of  operation,  In  the  MASH  code  system,  MORSE  Is  only  used 
in  adjoint  mode  for  the  analysis  of  the  complex  target  description 
(vehicle)  and  to  create  the  leakage  tape  for  Input  to  DRC. 


6.1.1  Theoretical  Basis 

Monte  Carlo  like  discrete  ordinates  solves  the  Boltzmann  transport 
equation  to  obtain  the  estimates  of  the  neutron  or  gamma-ray  fluence. 

The  general  time-dependent  integro-differential  form  of  the  Boltzmann 
transport  equation,  the  derivation  of  which  can  be  regarded  as  a 
bookkeeping  process  that  sets  the  net  storage  of  particles  within  a 
differential  element  of  phase  space  (drdEdO)  equal  to  the  particle  gains 
minus  the  particle  losses  in  (drdEdO)  and  leads  to  the  following  useful 
form; 


— *(r,E,ft,()  +  n.V$(r,E,fi,t)  +  E,(r,E)  4'(r,E,fl,() 

V  ot  (c 

=  5(r,E,fi,t)  -h  /  /dE'dfi'  E,(r,E'-^E,fi'-*fi)  $(r,E'fi't) 
where 

(r,E,0,t)  denotes  the  general  seven-dimensional  phase  space, 
r  -  position  variable, 

E  -  the  particle's  kinetic  energy, 

V  -  the  particle's  speed  corresponding  to  its  kinetic  energy  E, 

0  •  a  unit  vector  which  describes  the  particle's  direction  of 
motion, 

t  «  time  variable. 


$(r,E,a<)  = 

the  time  dependent  angular  fluence, 
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<i>{r,E,a,t)dEdn  = 


the  number  of  particles  that  cross  a  unit  area  normal  to  the 
^  direction  per  unit  time  at  the  space  point  r  and  time  t  with 
energies  in  dE  about  E  and  with  directions  that  lie  within  the 
differential  solid  angle  dQ  about  the  unit  vector  fi, 


-^^r,E,Q,t)dEd^  = 
V  at 


net  storage  (gains  minus  losses)  per  unit  volume  and  time  at 
the  space  point  r  and  time  t  of  particles  with  energies  in 
dE  about  E  and  with  directions  which  lie  in  dQ  about  Q, 


net  convective  loss  per  unit  volume  and  time  at  the  space 
point  r  and  time  t  of  particles  with  energies  in  dE  about  E 
and  directions  whicn  lie  in  jQ  about  0, 


the  total  cross  section  at  the  space  point  r  for  particles 
of  energy  E, 


Et{r,E)^r,E,Q,t)dEdn  = 


collision  loss  per  unit  volume  and  time  at  the  space  point  r 
and  time  t  of  particles  with  energies  in  dE  about  E  and 
directions  which  lie  in  dQ  about  Q, 
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E,a’ -*Sl)dEdil  = 


the  differential  scattering  cross  section  which  describes  the 
probability  per  unit  path  that  a  particle  with  energy  E'  and 
an  initial  direction  Q'  undergoes  a  scattering  collision  at 
the  space  point  r  which  places  it  into  a  new  direction  that 
lies  in  dfl  about  fl  with  a  new  energy  in  dE  about  E, 


[/  /  E.(r.  E>  E,  n'  -  E,  ft,  i)dE^da’]  dEdCl  = 


inscattering  gain  per  unit  volume  and  time  at  the  space 
point  r  and  time  t  of  particles  with  energies  in  dE  about  E 
and  directions  which  lie  in  dO  about  Q, 


S(r,E^(l,t)dEdi}  = 


source  particles  emitted  per  unit  volume  and  time  at  the  space 
point  r  and  time  t  of  particles  with  energies  in  dE  about  E 
and  directions  which  lie  in  dQ  about  Q. 


An  effect  of  interest  such  as  biological  dose,  energy  deposition,  or 
particle  fluence  (denoted  by  x)  for  a  given  problem  can  be  expressed  in 
terms  of  the  fluence  field  ♦{r,E,fl,t)  and  an  appropriate  response 
function  P*(r,E,Q,t}  due  to  a  unit  angular  fluence  and  is  given  by: 


=  I  I  I  I  P*ir,E,n,i)  i{r,E,n,t)drdEd^ldt.  (6-2) 


Consistent  with  the  MORSE  code,  the  energy  dependence  of  Equation  (6-1) 
is  represented  in  terms  of  energy  groups.  A  "group"  form  of  Equation 
(6-1)  is  obtained  by  integrating  each  term  with  respect  to  the  energy 
variable  over  the  energy  interval  aE,.  MORSE  solves  the  integral  form 
of  the  Boltzmann  transport  equation.  Section  4.10  of  Reference  1 
details  the  derivation  of  many  integral  forms  of  the  Boltzmann  transport 
equation  and  its  adjoint.  In  this  report  only  a  summary  of  the  two 
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particular  equations  used  for  the  forward  and  adjoint  analysis  will  be 
given,  and  the  interested  user  should  consult  Reference  1  for  further 
details. 

The  solution  of  the  forward  integral  transport  equation  by  Monte  Carlo 
generally  involves  a  solution  for  Xj{r,n,t),  referred  to  as  the  integral 
emergent  particle  density,  i.e.,  the  density  of  particles  with  phase 
space  coordinates  (r,n,t)  leaving  collisions.  Quantities  of  interest 
are  then  obtained  by  summing  the  contributions  over  all  collisions,  and 
frequently  over  most  of  phase  space.  The  "Integral  Emergent  Particle 
Density  Equation"  is  written  (in  operator  notation)  as: 


+  Cg>-g(r,Q'  Q)  (6  —  3) 


where 


Tg>(r'  =  the  transport  integral  operator,  and 


Cg>-g(r,Q'  Q)  =  the  collision  integral  operator. 


The  "Integral  Emergent  Particle  Density  Equation"  was  selected  as  the 
basis  for  the  forward  random  walk  since  the  source  particles  would  be 
introduced  according  to  the  natural  distribution. 

The  random  walk  based  on  the  above  Equation  (6-3)  would  introduce  a 
particle  into  the  system  according  to  the  source  function.  The  particle 
travels  to  the  site  of  its  first  collision  as  determined  by  the 
transport  kernel  (operator).  Its  weight  is  modified  by  the  non¬ 
absorption  probability  and  a  new  energy  group  and  flight  direction  are 
selected  from  the  collision  kernel  (operator).  The  transport  and 
collision  kernels  are  applied  successively  determining  the  particle's 
emergent  phase  space  coordinates  corresponding  to  the  second,  third, 
etc.,  collision  sites  until  the  random  walk  is  terminated  due  to  the 
reduction  of  the  particle's  weight  below  some  cut-off  value  or  because 
the  particle  escapes  from  that  portion  of  phase  space  associated  with  a 
particular  problem  (for  example,  escape  from  the  system,  slowing  down 
below  and  energy  cut-off,  or  exceeding  some  arbitrarily  specified  age 
cut-off) . 

In  some  cases,  particularly  in  MASH,  it  is  of  interest  to  solve  the 
adjoint  problem.  This  involves  solving  the  "Adjoint  Integro- 
Differential  Boltzmann  Equation"  given  below. 
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(6-4) 


1  a 

=  S%r,E,Q,t)  +  f  fE,(r,E-^E\Q-*Q')  ^•(r,E\Q',t)dE'dQ' 


where 


the  time  dependent  angular  adjoint  fluence, 


and  the  other  terms  defined  for  the  forward  transport  equation  have 
equivalent  meaning  for  the  adjoint  equation.  The  adjoint  fluence  is 
sometimes  referred  to  as  the  particle's  importance. 

The  solution  of  the  adjoint  integral  transport  equation  by  Monte  Carlo 
generally  involves  a  solution  for  G»(r,Q,t),  referred  to  as  the  integral 
emergent  adjuncton  density,  i.e.,  the  density  of  adjunctons  with  phase 
space  coordinates  (r,Q,t)  leaving  collisions.  Quantities  of  interest 
are  then  obtained  by  summing  the  contributions  over  all  collisions,  and 
frequently  over  most  of  phase  space.  The  "Integral  Emergent  Adjuncton 
Density  Equation"  is  written  (in  operator  notation)  as: 


Gg(r,Q,i) 


Sl)T,.(r' -.r,U')  (6-6) 


where 


Tg'{r'  r,Q')  -  the  transport  integral  operator, 

Cg'-f{r,Q'  =  the  collision  integral  operator,  and 

Pg(r,Q,t)  =  the  source  of  adjunctons. 

Equation  (6-5)  is  almost  identical  to  the  forward  equation  given  in 
Equation  (6-3)  which  defines  the  forward  emergent  particle  density  and 
serves  as  the  formal  basis  of  the  random  walk  in  MORSE.  Consequently, 
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the  same  logic  in  MORSE  can  be  used  for  both  the  forward  and  adjoint 
mode  of  solution.  The  Monte  Carlo  solution  of  Equation  (6-5)  will 
generate  data  from  which  the  adjuncton  fluence  Xg*(r,Q,t)  and  other 
quantities  of  interest  can  be  determined.  The  general  use  of  Xg*(r,n,t) 
must  take  into  account  the  reversal  of  directions  between  adjunctons  and 
real  particles,  i.e.  Q  (adjoint)  ■  -  Q  (forward).  Further,  if  outward 
boundary  crossings  would  be  scored  in  the  forward  problem,  the 
corresponding  source  adjunctons  would  be  introduced  in  the  inward 
direction.  Likewise,  adjunctons  would  be  scored  for  entering  a  volume 
from  which  the  source  particles  in  the  forward  problem  would  be  emitted. 
It  should  be  noted  that  many  sources  and  response  functions  are 
isotropic,  and  the  problem  of  directional  reversal  need  not  be 
considered.  The  various  relationships  between  the  adjoint  and  forward 
quantities  are  derived  in  Section  4.10  of  Reference  1. 


6.1.2  In-Group  Energy  Biasing 

One  feature  of  MORSE  alluded  to  in  the  introduction  was  that  several 
types  of  optional  importance  sampling  techniques  are  available  to  the 
user.  In  standard  MORSE,  these  include  splitting,  Russian  roulette, 
exponential  transform,  and  source  energy  biasing  to  name  a  few.  In  the 
MASH  version  of  MORSE,  there  is  an  additional  biasing  scheme  referred  to 
as  in-group  energy  biasing.  In-oroup  energy  biasing  is  a  methodology 
developed  by  W.  Scott  of  SAIC^**’^  to  adjust  for  irregularities  observed 
in  adjoint  Monte  Carlo  analyses  in  thick  media  where  the  weights  of 
adjoint  particles  could,  in  undergoing  multiple  scattering  events, 
become  very  large,  i.e.,  "the  fat  particle"  problem.  Such  particles  may 
be  scored  with  a  wide  variety  of  weight  values.  This  results  in  a  very 
inefficient  calculation  with  poor  statistical  precision,  which  is  not 
improved  by  longer  run  times.  The  procedure  was  first  implemented  in 
the  MIFT2’’  version  of  the  VCS^°'^’  MORSE  code  by  SAIC.  After  testing  by 
both  SAIC  and  ORNL,  the  procedure  was  installed  into  this  version  of 
MASH.  A  detailed  description  of  the  theoretical  basis  for  in-group 
biasing  is  presented  in  Appendix  B.  The  user  should  examine  this 
section  to  understand  the  physics  of  the  biasing  technique.  Here  only  a 
cursory  explanation  of  how  in-group  biasing  works  is  given. 

In-group  energy  biasing  is  easy  to  use.  Unlike  other  Monte  Carlo 
biasing  methods,  in-group  biasing  does  not  require  that  the  user  set  up 
and  input,  based  on  his  judgment,  arrays  of  data  to  improve  the 
efficiency  of  the  Monte  Carlo  calculation.  This  means  that  a  person 
less  skilled  in  adjoint  Monte  Carlo  can  often  successfully  use  MASH  or 
adjoint  MORSE,  since  use  of  in-group  bias  requires  only  the  setting  of  a 
switch  in  MASH.  Success  in  the  use  of  the  other  biasing  methods 
generally  requires  considerable  adjoint  Monte  Carlo  experience. 

The  major  objective  of  the  in-group  biasing  scheme  is  to  eliminate  the 
instability  in  the  variance  for  random  walks.  This  is  equivalent  to 
eliminating  the  problem  in  which  the  weight  of  an  adjoint  particle  can 
grow  unbounded  by  many  repeated  in-group  scatterings. 
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The  defining  feature  of  in-group  energy  biasing  is  that  for  all  but  the 
last  group,  a  particle's  weight  only  changes  when  it  scatters  to  a  new 
group.  If  the  particle  stays  in  the  same  group,  its  weight  does  not 
change.  Thus,  when  an  adjoint  particle  has  a  probability  of  non¬ 
absorption  (PNAB)  greater  than  1.0,  its  weight  will  not  increase  so  long 
as  it  scatters  in  the  same  group.  When  it  finally  upscatters  to  a  new 
group,  its  weight  will  be  increased  by  a  fixed  amount  that  is  a  function 
only  of  the  cross  sections  and  not  of  how  many  times  the  particle 
scattered  in  the  same  group.  With  standard  adjoint  MORSE,  such  a 
particle  would  have  its  weight  increased  by  PNAB  each  time  that  it 
scattered  so  that  its  final  weight  upon  upscatter  would  depend  upon  how 
many  in-group  scatterings  that  it  had. 


6.2  NORSE  CODE  STRUCTURE 

Input  to  MORSE  is  read  in  five  separate  modules:  (1)  random  walk;  (2) 
cross  section;  (3)  user;  (4)  source;  and  (5)  geometry.  The  random  walk 
input  is  read  in  subroutines  INPUTl  and  INPUT2  and  includes  all 
variables  needed  for  the  random  walk  process.  The  cross-section  input 
is  read  in  cross-section  module  subroutines  XSEC,  JNPUT,  and  READSG. 

The  parameters  needed  to  set  aside  storage  are  read  in  XSEC,  the  mixing 
parameters  are  read  in  JNPUT,  and  the  actual  cross  sections  are  read  by 
READSG.  Cross  sections  may  be  either  on  card  or  on  tape.  Input 
information  required  for  analysis  of  the  histories  is  read  by  subroutine 
SCORIN  of  the  analysis  package  which  is  called  from  INPUT2.  Since  the 
source  varies  from  problem  to  problem,  input  may  also  be  read  in  by 
subroutine  SORIN  for  the  definition  of  the  source.  The  geometry  input 
is  read  by  subroutine  JOMIN.  Any  additional  input  required  by  the  user 
may  be  read  in  by  subroutine  INSCOR  which  is  called  from  SCORIN. 

In  general,  output  of  input  parameters  occurs  in  the  same  routine  in 
which  the  input  was  read.  In  addition,  there  are  two  routines  (OUTPT 
and  0UTPT2)  for  the  output  of  results  of  the  random  walk  process. 

Output  of  analysis  results  is  generally  performed  in  subroutine  NRUN, 
but  may  also  be  done  in  a  user- written  routine  ENDRUN  which  is  called  by 
NR'JN. 

The  input  section  takes  care  of  setting  up  all  variables  needed  in  the 
transport  process.  It  should  be  noted  that  initial  calculations  by  the 
cross-section  module  stem  from  subroutine  calls  in  XSEC.  The  analysis 
portion  of  the  code  is  interfaced  with  MORSE  through  BANKR  with  several 
uses  made  of  cross-section  routines  in  making  estimates  of  the  quantity 
of  interest.  With  the  exception  of  output  from  the  random  walk  process, 
the  rest  of  the  code  consists  of  subroutine  calls  by  MORSE.  The 
geometry  module  is  interfaced  through  GOMST,  and  the  source  is 
interfaced  through  MSOUR.  The  diagnostic  module  is  independent  and  any 
part  of  it  may  be  executed  from  any  routine. 

The  diagnostic  module  provides  an  easy  means  of  printing  out,  in  useful 
form,  the  information  in  the  various  labelled  commons  and  any  part  of 
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blank  common.  The  IBM-360  version  also  has  the  following  features:  a 
special  routine  is  provided  for  printing  out  the  particle  bank;  by 
loading  parts  of  core  with  a  junk  word,  the  diagnostic  package  can 
determine  which  variables  have  been  used;  a  "repeating  line"  feature  is 
also  included. 

The  usual  geometry  module  for  MORSE  is  the  combinatorial  geometry 
package  (CG)^.  However,  the  MORSE  code  in  MASH  contains  the  GIFTS 
geometry  package  developed  at  BRL®'’’.  The  GIFTS  geometry  package  is 
similar  to  CG;  however,  it  contains  a  significant  increase  in  the  number 
of  primitive  bodies  or  "solids"  and  some  added  advantages  relative  to 
Monte  Carlo  tracking  in  complex  geometries.  The  GIFTS  geometry  package 
was  first  installed  into  the  MIFT2’’  code  by  SAIC.  After  considerable 
testing,  the  package  was  installed  into  this  version  of  MORSE  for  the 
MASH  code  system. 

An  albedo  scattering  may  be  forced  to  occur  at  every  entry  into  a 
specified  medium.  A  sample  subroutine  is  provided  for  specular 
reflection  and  a  subroutine  call  is  provided  (ALBIN,  called  from  XSEC) 
for  reading  and  storing  albedo  data  of  any  degree  of  complexity.  Thus 
transport  of  particles  may  be  carried  out  in  parts  of  the  problem  and  an 
albedo  scattering  treated  for  other  parts  of  the  problem. 

Time  dependence  is  included  by  keeping  track  of  the  chronological  age  of 
the  particle.  For  neutrons  the  age  is  incremented  by  the  time  needed  to 
travel  the  distance  between  collisions  if  it  traveled  at  a  velocity 
corresponding  to  the  average  energy  of  the  group.  Provision  is  made  for 
inputting  a  thermal  group  velocity  separately.  Nonrelativistic 
mechanics  are  assumed.  The  age  of  secondary  ganvna  rays  is  determined 
from  the  neutron  age  at  the  collision  site  and  is  incremented  by 
determining  the  time  required  to  travel  between  collisions  at  the  speed 
of  light.  For  fission  problems  the  age  of  the  parent  is  given  to  the 
daughters  at  birth. 

There  are  several  types  of  importance  sampling  techniques  included  in 
the  code.  The  Russian  roulette  and  splitting  logic  of  05R’^  is  an 
option  in  MORSE.  Also,  the  exponential  transform  is  provided  with 
parameters  allowed  as  a  function  of  energy  and  importance  region. 

Source  energy  biasing  is  an  option  as  well  as  energy  biasing  at  each 
collision.  In  fission  problems  the  fission  weights  may  be  renormalized 
as  a  function  of  an  estimate  of  K^ff  so  that  the  number  of  histories  per 
generation  remain  approximately  constant.  If  desired,  all  importance 
sampling  may  be  turned  off. 

Some  other  general  features  include  the  ability  to  run  problems  without 
the  use  of  magnetic  tapes  the  ability  to  terminate  a  job  internally 
after  a  set  elapsed  CPU  time  and  obtain  the  output  based  on  the  number 
of  histories  treated  up  to  that  time,  batch  processing  for  the  purpose 
of  determining  statistics  for  groups  of  particles,  and  a  repeat  run 
feature  so  that  results  for  a  time-dependent  fission  problem  may  be 
obtained  with  statistical  estimates.  The  output  of  numerous  counters 
permits  one  to  obtain  an  insight  into  the  physics  of  the  problem. 
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6.2.1  Random  Walk  Module 

The  basic  random  walk  process  of  choosing  a  source  particle  and  then 
following  it  through  its  history  of  events  is  governed  by  the  routines 
in  this  module  of  MORSE.  A  given  problem  is  performed  by  following  a 
number  of  batches  of  particles  which  then  constitute  a  run.  Multiple 
runs  are  also  permitted.  The  batch  process  feature  is  used  so  that 
statistical  variations  between  groups  of  particles  can  be  determined. 
Thus,  a  batch  of  source  particles  is  generated  and  stored  in  the  bank. 
The  random  walk  for  this  batch  of  particles  is  determined  by  picking  one 
particle  out  of  the  bank  and  transporting  it  from  collision  to 
collision,  splitting  it  into  two  particles,  killing  by  Russian  roulette, 
and  generating  secondary  particles  (either  ganma  rays  or  fission 
neutrons)  and  storing  them  in  the  bank  for  future  processing. 

Termination  of  a  history  occurs  when  a  particle  leaks  from  the  system, 
reaches  an  energy  cutoff,  reaches  an  age  limit,  or  is  killed  by  Russian 
roulette. 

The  random  walk  module  performs  the  necessary  bookkeeping  for  the  bank 
and  the  transportation  and  generation  of  new  particles  and  relays  this 
information  to  the  analysis  module  for  estimation  of  the  desired 
quantities.  Use  is  made  of  the  cross-section  module  and  the  geometry 
module  during  the  random  walk  process  and  the  input-output  routines  for 
the  reading  and  printing  of  pertinent  information  about  the  problem. 

In  this  module  the  main  program  is  used  to  set  aside  the  storage 
required  in  blank  common  and  to  pass  this  information  to  subroutine 
MORSE  which  is  the  executive  routine  for  the  random  walk  process.  After 
performing  the  necessary  input  operations  and  setting  up  storage 
requirements,  the  walk  process  consists  of  three  nested  loops:  one  for 
runs,  one  for  batches,  and  the  inner-most  is  for  particles.  After  each 
termination  of  the  batch  loop,  some  bookkeeping  is  required  before  the 
generation  of  a  new  batch  of  source  particles.  After  the  termination  of 
a  run,  a  summary  of  the  particle  terminations,  scattering  counters,  and 
secondary  production  counters  are  output,  as  well  as  the  results  of 
Russian  roulette  and  splitting  for  each  group  and  importance  region. 

There  are  only  two  main  labelled  commons  (APOLLO  and  NUTRON)  in  the 
random  walk  routines.  Tables  4.4  and  4.5  in  Reference  1  list  the 
definitions  of  the  variables  in  these  two  commons.  The  parameters 
stored  in  these  commons  are  labelled  by  "current"  and  "previous" 
descriptors  which  refer  to  values  of  parameters  leaving  the  current  and 
previous  event  sites,  respectively  (WTBC  is  the  exception,  being  the 
weight  entering  the  current  event  site).  Also  note  that  "event" 
includes  boundary  crossings,  albedo  collisions,  etc.,  as  well  as  real 
collisions.  The  user  is  afforded  access  to  these  parameters  through 
several  different  calls  to  subroutine  BANKR  throughout  the  random  walk. 
The  calling  routine  and  location  in  the  random  walk  where  BANKR  is 
called  is  given  in  Table  6-1.  The  user  can  then  interact  with  the 
random  walk  through  additional  programming  only  in  subroutine  BANKR  and 
not  need  to  work  with  the  random  walk  routines  themselves.  The  user 
also  has  an  input  option  to  write  a  collision  tape  for  further  analysis. 
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Table  6-1.  BANKR  Arguments. 


BANKR 

Argument 

Called 

From 

Location  of  BANKR 

Call  in  Random  Walk 

-1 

MORSE 

After  call  to  INPUT  -  to  set  parameters 
for  new  problem. 

-2 

MORSE 

At  the  beginning  of  each  batch  of  NSTRT 
particles. 

-3 

MORSE 

At  the  end  of  each  batch  of  NSTRT  particles. 

-4 

MORSE 

At  the  end  of  each  set  of  NITS  batches 
a  new  problem  is  about  to  begin. 

1 

MSOUR 

At  a  source  event. 

2 

TESTW 

After  a  splitting  has  occurred. 

3 

FPROB 

After  a  fission  has  occurred, 

4 

GSTORE 

After  a  secondary  particle  has  been 
generated. 

5 

MORSE 

After  a  real  collision  has  occurred 
post-collision  parameters  are  available. 

6 

MORSE 

After  an  albedo  collision  has  occurred  - 
post-collision  parameters  are  available. 

7 

NXTCOL 

After  a  boundary  crossing  occurs  (the 
track  has  encountered  a  new  geometry  medium 
other  than  the  albedo  or  void  media). 

8 

NXTCOL 

After  an  escape  occurs  (the  geometry  has 
encountered  medium  zero). 

9 

MORSE 

After  the  post-collision  energy  group  exceeds 
the  maximum  desired. 

10 

MORSE 

After  the  maximum  chronological  age  has 
been  exceeded. 

11 

TESTW 

After  a  Russian  roulette  kill  occurs. 

12 

TESTW 

After  a  Russian  roulette  survival  occurs. 

13 

GSTORE 

After  a  secondary  particle  has  been  generated 
but  no  room  in  the  bank  is  available. 
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The  input  allows  the  user  to  specify  which  of  the  thirteen  positive 
BANKR  Arguments  to  put  on  the  tape  as  well  as  which  of  the  36  parameters 
listed  in  Table  6-2.  These  features  of  MORSE  prove  useful  in  applying 
the  code  to  new  and  different  problems. 


Table  6-2.  Variables  That  May  be  Written  on  Collision  Tape  (NBIND). 


Variable 

Number 

Variable 

Name 

Variable 

Number 

Variable 

Name 

1 

NCOLL 

19 

WTBC 

2 

NAME 

20 

ETAUSD 

3 

IG 

21 

ETA 

4 

U 

22 

AGEC 

5 

V 

23 

OLDAGE 

6 

W 

24 

NREG 

7 

X 

25 

NMED 

8 

Y 

26 

NAMEX 

9 

Z 

27 

WATEF 

10 

WATE 

28 

BLZNT 

11 

I  GO 

29 

BLZON 

12 

UOLD 

30 

VEL(IG) 

13 

VOID 

31 

VEL(IGO) 

14 

WOLD 

32 

TSIG 

15 

XOLD 

33 

PNAB 

16 

YOLO 

34 

NXTRA 

17 

ZOLD 

35 

EXTRAl 

18 

OLDWT 

36 

EXTRA2 
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6.2.2  Nulti group  Cross-Section  Module 

The  function  of  this  module  in  the  multigroup  Monte  Carlo  code  is  to 
read  ANISN-type^  cross  sections  for  media  or  elements,  mix  several 
elements  together  to  obtain  media  cross  sections,  determine  group- to- 
group  transfer  probabilities  and  determine  the  probabilities  and  angles 
of  scattering  for  each  group-to-group  transfer.  All  variables  are 
flexibly  dimensioned  and  are  part  of  blank  common. 

Various  types  of  cross  sections  can  be  processed  by  the  cross-section 
module.  Neutron  only,  gamma  ray  only,  neutron  gamma-ray  coupled,  or 
gamma  rays  from  coupled  neutron  gamma-ray  cross  sections  can  be 
processed  for  either  a  forward  or  an  adjoint  problem  with  or  without 
fission.  The  Legendre  coefficients  are  stored  if  a  next-event  estimator 
is  to  be  used.  Table  6-3  indicates  the  relationship  between  the  various 
input  parameters  in  the  random  walk  module  and  the  cross  section  module. 
The  user  must  be  careful  that  these  particular  parameters  match. 

The  cross  sections  are  read  for  one  coefficient  and  one  element  into  a 
buffer  area.  Then  these  cross  sections  are  decomposed  into  total, 
fission,  and  downscatter  matrix  and  stored  in  temporary  arrays  so  that 
they  may  be  mixed  to  form  media  cross  sections.  The  total  and  fission 
cross  sections  are  stirred  only  once  for  an  element,  but  the  downscatter 
matrix  is  store''  ^  r  each  coefficient. 

The  cross  ? .r  .ons  are  transposed  as  stored  if  an  adjoint  problem  is 
being  solved.  Two  major  reordering  steps  are  carried  out  to  produce  an 
adjoint  cross-section  library: 


1.  The  inscatter  matrix  is  transposed,  i.e.  the  table  position 
associated  with  group  g  describing  scattering  from  g'  to  g  is 
changed  to  describe  scattering  from  g  to  g'. 


2.  The  ordering  of  the  groups  is  reversed,  i.e.  data  for  group 
IGM  appear  first  in  the  output  file,  followed  by  IGM-1,  etc. 


After  all  cross  sections  are  stored,  the  contribution  of  each  element  to 
the  cross  section  for  the  media  is  determined.  Also  at  this  time  the 
sum  of  the  downscatter  vector  for  each  group  is  determined  for  the 
future  calculation  of  the  nonabsorption  probability;  the  ganwna- 
production  cross  section  is  also  determined  by  summing  the  transfers  to 
the  gamma  groups.  After  the  cross  sections  for  the  medium  have  been 
determined,  the  nonabsorption  probability,  fission  probability,  and 
gamma-production  probabilities  are  formed  by  dividing  by  the  total  cross 
section.  The  downscatter  matrix  is  converted  to  a  probability  table  by 
dividing  by  the  scattering  cross  section. 
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Table  6-3.  Examples  of  the  Relationship  Between  Random  Walk 
and  Cross  Section  Nodule  Group  Input  Parameters. 


Case  A  -  Neutron  Only  Cross  Sections  (22  groups) 

Case  B  -  Gamma-Ray  Only  Cross  Sections  (18  groups) 

Case  C  -  Neutron  Gamma-Ray  Coupled  Cross  Sections  (22-18  groups) 


Problem  Type 


Input 

Variable 

Case  A 
Top  14 
groups 

Case  B 
Top  17 
groups 

Case  C 
n  only 

Top  14  gps 

Case  C 

7  only 

Top  17  gps 

Case  C 
n  +  7 

14n  +  177 

MORSE 

Input 

NGPQTN 

14 

0 

14 

0 

14 

NGPQTG 

0 

17 

0 

17 

17 

CARD  1 

NMGP 

22 

18 

22 

18 

40 

Variabli 

NMTG 

22 

18 

22 

18 

40 

NGP 

22 

18 

22 

0 

22a 

CARD  XI 

NGG 

0 

0 

0 

18 

18 

Variabli 

INGP 

22 

18 

40 

40 

40 

*Must  be  equal  to  total  number  of  neutron  groups  in  the 
data;  otherwise  it  picks  up  the  gammas  from  the  wrong  location. 


Note:  For  Cross  sections  with  full  downscatter,  NDS  »  NGP, 
NDSG  -  NG6,  INDS  -  INGP,  and  ITBL  -  number  of 
downscatters  +  number  of  upscatters  +  3.  Usually, 
ISGG  »  number  of  upscatters  +  4;  i.e.,  NUS  +  4. 
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A  simple  three  group  example  showing  the  relationship  between  a  forward 
and  adjoint  cross-section  set  is  shown  below.  In  this  example,  there  is 
no  upscatter,  one  activation  cross  section,  and  the  cross-section  input 
parameters  (defined  In  Section  6.3.3)  are  IHT  -  4,  ISG6  -  5,  and  ITBL  = 
7. 


Direct 

Adjoint 

(7^(3) 

<(1) 

<(3) 

1/(7  (3) 

a(l-l) 

a (3-3) 

0 

0 

0 

0 

o^{2) 

0^2) 

<(2) 

<(2) 

*^<(2) 

oH2) 

oH2) 

(7(2-2) 

a(2-2) 

<^(1-2) 

a(2-3) 

0 

0 

<(3) 

«^'(1) 

<(3) 

./(T  (3) 

a*(l) 

•/a^l) 

a^(3) 

aUD 

a(3-3) 

a(M) 

a(2-3) 

a(l-2) 

(7(1-3) 

(7(1-3) 

The  Legendre  coefficients  for  each  group-to-group  transfer  are  converted 
to  angles  and  probabilities  of  scattering  at  those  angles  by  the  use  of 
a  generalized  Gaussian  quadrature  using  the  angular  distribution  as  a 
weight  function.  That  is. 


i=l 
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where 


/(m)  is  any  polynomial  of  order  2n-l  or  less, 

u}{n)  is  the  angular  distribution  for  n,  the  cosine  of  the 
scattering  angle, 

fit  is  a  set  of  discrete  cosines,  and 


wi  is  the  probability  of  the  corresponding  cosine. 


Thus,  a  set  of  /ij's  andw/s  that  satisfy  the  equation  must  be  found. 
To  do  this,  a  set  of  polynomials,  Qj,  which  is  orthogonal  with  respect 
to  the  angular  distribution,  is  defined  such  that 


Sij  Ni 


5 


where  N,  is  a  normalization  constant. 

The  moments  of  the  angular  distribution  Mj,  i=l,2n-l,  determine  the 
orthogonal  polynomials,  Qj,  i=l,n.  The  desired  cosines,  /i,-,  are  given 
by  the  roots  of  Q^, 


QnM  =  0, 


and  the  corresponding  probabilities  are 


Ui 


V 

h  ) 


In  the  process  of  deriving  the  orthogonal  polynomials,  some  restrictions 
on  the  moments  of  the  angular  distribution  are  obtained.  These 
restrictions  arise  if  both  the  original  distribution  and  the  derived 
point  distribution  are  to  be  everywhere  non-negative.  The  restrictions 
are: 
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1)  Nj  >  0  for 

This  restriction  may  be  written  in  terms  of  the  determinant 
of  the  determinant  of  the  moments: 


1  Ml  M2  •  •  •  Mi 

Ml  M2  M3  *  '  ^i+1 


>  0 


Mi  Mi+i  Mi+2  •  •  •  M2i 


2)  The  roots  of  Q^(/i)  must  all  lie  in  the  interval 


-1  <  /i.  <  1. 


It  must  be  emphasized  that  the  restriction  arising  from  the  original 
distribution  being  everywhere  positive  (or  zero)  does  not  restrict  the 
truncated  expansion  of  the  distribution  to  be  everywhere  positive.  That 
is,  moments  from  a  truncated  distribution  that  is  not  necessarily 
everywhere  positive  are  used  to  derive  a  discrete  distribution  with 
positive  probabilities. 

Other  characteristics  of  this  representation  are  that  the  information  is 
compact,  the  angles  are  clustered  where  the  angular  distribution  is 
peaked,  and  because  of  the  restrictions,  cross  sections  that  have 
blunders  in  them  are  rejected  because  they  produce  angles  outside  the 
range  of  -1  to  +1. 

An  option  on  input  makes  it  possible  to  write  a  tape  containing  the 
processed  cross  sections  and  all  variables  from  Common  LOCSIG  needed 
during  the  random  walk  process.  In  starting  a  new  case,  the  normal 
cross-section  input,  except  for  the  cross  sections  and  the  mixing  cards, 
is  required.  Both  the  information  from  input  and  from  tape  are  printed 
for  compatibility  checks.  Note  that  if  an  adjoint  problem  is  being 
solved,  the  input  information  and  the  information  for  tape  will  not  be 
identical . 

One  of  the  more  important  options  provided  for  in  this  package  is  the 
ability  to  treat  upscattering.  Thus,  multigroup  cross  sections  with  many 
thermal  groups  may  be  utilized.  (In  a  crude  way  photoneutron  production 
may  be  tr^^ted  as  an  upscatter  process  from  a  gamma-ray  group  to  a 
neutron  c  ip.)  Also,  the  capability  of  using  cross  sections  with 
partial  downscatter  is  present. 
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The  downscatter  array  made  it  possible  to  have  a  feature  that  is  helpful 
in  reducing  cross-section  storage  requirements  for  neutron  problems 
involving  materials  other  than  hydrogen  when  a  cross-section  tape  is 
used.  For  non-hydrogeneous  media  there  is  very  seldom  complete 
downscatter  to  thermal  energy,  so  a  routine  was  added  to  search  the  Pg 
array  to  determine  the  minimum  downscattered  energy  group  for  any 
element  and  for  each  group.  The  zero  cross  sections  for  downscatters 
below  this  energy  group  are  not  stored,  and  thus  the  storage 
requirements  are  reduced. 

Another  important  feature  of  this  module  is  the  ability  to  use  a  point 
cross-section  representation  for  the  total,  scattering,  and  fission 
cross  sections.  Either  an  OSR’^  or  an  (variable  supergroup 

boundaries)  format  tape  (CODE?)  may  be  used  over  a  specified  energy 
range.  The  energy  of  a  particle  is  chosen  uniformly  within  an  energy 
group  for  the  purpose  of  selecting  the  particle  track  lengths  or 
calculating  a  nonabsorption  probability.  For  gamma  rays  or  for  neutron 
energies  outside  the  specified  range,  the  total  cross  section  from  the 
multigroup  cross  sections  is  used.  (Point,  total,  and  scattering  cross 
sections  for  the  adjoint  case  can  also  be  used.)  For  some  applications, 
detailed  nonabsorption  probabilities  and  fission  probabilities  may  also 
be  required.  The  logic  was  included  in  the  new  module  for  the  cross- 
section  manipulation  required  for  the  use  of  the  point  cross  sections. 

Up  to  16  point  cross-section  media  with  up  to  100  supergroups  are 
allowed. 

One  major  change  in  philosophy  has  been  made  for  the  case  in  which  point 
cross  sections  are  used.  The  modular  framework  of  MORSE  is  broken  in 
this  case  in  that  Subroutine  GTSCT  uses  the  energies  corresponding  to 
the  multigroup  boundaries  in  order  to  set  up  an  array  of  indices.  It  is 
assumed  by  GTSCT  that  the  energies  exist  in  the  first  NTG  cells  of  Blank 
Common . 

An  executive  program  XCHEKR’®  may  be  used  in  conjunction  with  this 
cross-section  module  independent  of  MORSE  for  the  purpose  of  checking 
and  editing  multigroup  cross  sections.  Also,  this  executive  program  may 
be  used  to  generate  a  processed  cross-section  tape  independent  of  a 
MORSE  calculation. 


6.2.3  The  GIFTS  Geometry  Package 

GIFTS  geometry  is  similar  to  the  older  MORSE  combinatorial  geometry  in 
that  specified  geometric  shapes  (spheres,  cylinders,  parallelepipeds, 
etc.)  may  be  combined  to  describe  complex  geometry  configurations.  As 
with  MORSE  combinatorial  geometry,  a  GIFTS  geometry  file  is  comprised 
largely  of  a  "body"  or  "solids"  table  followed  by  a  "zone"  or  "region" 
table  in  which  the  bodies  are  combined  by  (+),  (-),  or  (OR)  operators. 
In  GIFT  geometry,  however,  "bodies"  (MORSE  terminology)  are  called 
"solids"  and  "zones"  (MORSE  terminology)  are  called  "regions".  In  the 
GIFTS  graphics  code  there  is  no  equivalent  to  the  "regions"  as  used  in 
MORSE.  In  MASH,  where  the  term  "region"  could  have  a  double  meaning. 
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the  MORSE  equivalent  of  "region"  is  called  "importance  region"  to 
minimize  any  confusion.  In  this  section  the  GIFT  terminology,  i.e., 
solids  and  regions,  equivalent  to  bodies  and  zones  in  MORSE,  will  be 
used. 

Installation  of  the  GIFTS  geometry  in  MASH  was  greatly  facilitated  by 
BRL's  initial  installation  of  GIFT  into  MORSE  to  derive  MIFT,  in  which 
they  (BRL)  had  developed  the  necessary  interfaces  between  MORSE  and  the 
GIFT  geometry,  and  SAIC's  installation  of  GIFTS  into  MIFT2.  SAIC's 
Installation  of  GIFTS  in  MIFT  consisted  largely  of  replacing  GIFT 
geometry  routines  with  GIFTS  routines.  The  subsequent  installation  of 
GIFTS  into  the  MORSE  code  in  MASH  involved  mainly  a  transfer  of  the 
MIFT2  logic  into  the  MORSE  logic  with  a  few  changes  necessary  to 
accommodate  the  minor  differences  in  the  two  codes. 

MASH  interfaces  with  the  GIFTS  geometry  routines  in  four  major 
locations:  INPUTl  for  processing  of  the  input  geometry  data,  LOOKZ  to 
identify  the  region  (zone)  for  starting  particles,  and  GOMST  and  NXTCOL 
to  track  particles  during  the  random  walk.  INPUTl  calls  GIFTM,  which 
sets  a  few  switches  and  calls  GENI. 

GENI  calls  SOLIN,  which  processes  the  solids  (bodies)  table,  REGIN, 
which  processes  the  regions  (zones)  table,  IDIN,  which  processes  the 
identification  table,  and  RPPIN  which  processes  any  boundary  RPP 
information.  SOLIN  calls  ALBERT,  which  processes  ARB  input  data,  and 
ARIN,  which  processes  ARS  input  data.  Several  other  routines,  including 
DOT,  CROSS,  EQUIV,  UNITV,  UN2,  ARANG2,  CPOINT,  and  PLANE,  are  called  by 
these  routines  to  perform  miscellaneous  operations  such  as  vector  dot 
products,  cross  products  and  sorts.  GENI  and  routines  called  by  GENI 
analyze  the  geometry  for  obvious  errors,  such  as  XMAX  smaller  than  XMIN 
for  an  RPP  or  non-coplanar  points  on  an  ARB,  and  print  error  messages 
when  such  errors  are  found.  GENI  then  stores  the  geometry  data  with 
XMAX,  XMIN,  YMAX,  YMIN,  ZMAX,  and  ZMIN  bounding  values  for  each  region 
(zone)  for  use  in  subsequent  analyses. 

LOOKZ  calls  RAY  to  identify  the  starting  region  location  for  starting 
particles.  RAY  calculates  the  region  numbers  and  intercept  distances 
for  all  regions  on  a  1 ine-of-sight  from  the  particle  start  point  to  exit 
from  the  defined  geometry. 

GOMST  and  NXTCOL  determine  the  particle  coordinates  at  the  next 
collision  site  by  calculating  the  expected  flight  path  distance  in  mean 
free  paths,  then  tracking  the  particle  through  the  different  regions  and 
materials  of  the  geometry  until  the  mean  free  path  is  "expended"  or 
until  the  particle  escapes  from  the  geometry. 

First,  in  NXTCOL,  the  mean  free  path  for  the  particle  path  is  calculated 
with  a  call  to  GETETA,  a  flag,  MARK,  is  set  to  1,  and  the  call  to  GOMST 
is  made.  In  GOMST  the  distance  DISTO  for  the  particle  mean  free  path  in 
the  current  medium  is  calculated.  Then  the  particle  starting 
coordinates  and  direction  cosines,  XB  and  WB  are  stored.  A  call  to  the 
GIFTS  REGION  subroutine  is  made  to  determine  the  distance  along  the 
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particle  line-of-sight  to  exit  from  the  current  region,  and  a  test  is 
made  to  determine  whether  the  particle  does,  in  fact,  exit  the  region. 

If  it  does  exit  the  region,  a  call  to  GIFTS  subroutine  RAY  is  made  to 
calculate  intercepts  of  the  particle  line-of-sight,  MARK  is  set  to  0 
(indicating  a  region  boundary  crossing)  and  the  distance  traveled  is 
cumulated.  A  test  on  MARK  is  then  made.  If  MARK  is  equal  to  1,  the 
collision  site  is  in  the  same  region  as  before  and  GOMST  and  NXTCOL  are 
exited.  If  MARK  is  zero,  a  boundary  crossing  occurred  and, tests  are 
made  first  for  the  extended  path  scoring  option  (if  "Yes",  a  score  is 
made),  then  for  particle  escape  (if  "Yes",  an  escape  is  scored).  If 
there  is  no  escape,  the  flight  distance  in  the  new  medium  is  calculated. 

As  seen  in  the  foregoing  paragraph,  particle  tracking  uses  calls  to 
GIFTS  subroutines  RAY  and  REGION.  Given  a  particle  line-of-sight 
defined  by  a  starting  point  and  a  direction,  REGION  calculates  the 
distance  along  the  ray  to  all  entry  and  exit  points  for  a  specified 
region.  Because  a  region  can  have  complicated  shapes,  it  is  possible 
for  a  ray  to  have  several  entry  and  exit  points.  While  REGION 
calculates  entry  and  exit  points  for  only  one  specified  region,  RAY  does 
so  for  all  regions  on  the  line-of-sight. 

The  particle  tracking  logic  with  GIFTS  routines  is  considerably 
different  from  the  tracking  logic  in  combinatorial  geometry  MORSE-CG. 

In  MORSE,  each  time  a  particle  exits  a  region,  MORSE-CG  searches  an 
"experience"  table  to  determine  candidate  neighboring  regions  which  the 
particle  might  be  entering.  If  analysis  shows  that  the  particle  is  not 
entering  any  of  the  regions  in  the  experience  table,  or  if  there  are  no 
candidate  regions  in  the  table,  all  regions  are  checked  sequentially 
until  the  new  region  is  found.  When  the  new  region  is  found,  it  is 
added  to  the  experience  table. 

MASH,  during  the  processing  of  the  input  geometry  data,  performs  three 
steps  which  facilitate  later  particle  tracking.  First,  bounding  X,  Y, 
and  Z  values  are  found  for  each  region,  and  the  resulting  XMIN,  XMAX, 
YMIN,  YMAX,  ZMIN,  ZMAX  are  stored  in  the  MASTER/ ASTER  array  (the  Region 
RPP  Table  discussed  in  Appendix  C).  Second,  these  XMIN,  XMAX,  YMIN, 
YMAX,  etc.,  data  sets  are  each  sorted,  high  value  first,  carrying  along 
the  region  number,  and  stored  in  the  MASTER/ ASTER  array.  Third,  the 
bounding  RPP  for  the  entire  problem  geometry  is  defined  and  stored. 

During  particle  tracking,  MASH  first  derives  the  RPP  which  bounds  the 
particle  flight  path  line-of-sight  (ray)  from  its  starting  point  to 
escape  from  the  defined  geometry.  Next  it  compares  the  XMIN,  XMAX,  ..., 
ZMAX  data  for  this  bounding  RPP  to  the  region  min-max  table  to  derive 
the  shortest  list  of  candidate  regions  that  the  ray  might  intercept. 

Then  for  each  region  on  the  list,  it  compares  the  region  min/max  values 
with  the  ray  RPP,  eliminating  any  region  RPP  that  doesn't  intersect  the 
ray  RPP.  Next  a  "fly  by"  test  is  performed,  then  a  check  of  whether  the 
ray  actually  penetrates  the  region  bounding  RPP.  Last,  if  all  of  the 
above  tests  are  passed,  a  check  is  made,  via  a  call  to  REGION,  to 
determine  whether  the  ray  penetrates  the  region. 
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The  above  procedure  is  performed  in  RAY  for  all  candidate  regions.  When 
it  is  found  that  the  ray  does  penetrate  a  region,  the  RIN  and  ROUT 
distances  (distances  along  the  ray  to  region  entry  and  exit, 
respectively)  are  added  to  a  list  (RAYIN  and  RAYOUT),  in  common  RAYINT, 
along  with  the  region  number,  IREGON,  and  a  count  of  the  number  of 
entries  on  the  list,  NINT.  Last,  the  RAYIN/RAYOUT  list  is  checked  for 
overlapping  regions.  If  overlapping  regions  are  found,  an  error  message 
is  written. 

In  initial  testing  of  MIFT2  after  installation  of  the  GIFTS  geometry 
routines,  SAIC  found  that  particle  tracking  resulted  in  undetected 
errors  whenever  there  were  undefined  regions  in  the  geometry.  While 
vehicle  geometries  for  VCS  analysis  have  not  intentionally  been 
developed  with  undefined  regions,  undefined  regions  could  result  from 
errors  in  developing  the  complex  vehicle  geometry.  The  result  of 
undefined  regions  in  MIFT,  before  corrections  were  implemented,  was  that 
particles  got  lost  in  the  sense  that  their  X,Y,Z  coordinates  did  not 
correspond  to  the  regions.  In  the  analysis  of  a  test  case  vehicle,  for 
example,  in  which  the  interior  air  region  was  intentionally  left 
undefined,  the  effect  was  to  fill  the  interior  with  the  steel  boundary 
material . 

In  MORSE-CG,  entry  of  particles  into  an  undefined  region  also  results  in 
the  particle  getting  lost.  MORSE-CG,  however,  kills  the  particles  by 
setting  the  weight  (WATE)  to  zero  and  picks  up  a  new  particle  after 
writing  a  message. 

The  error  in  the  treatment  of  undefined  regions  was  corrected  (by  SAIC) 
in  MIFT2  by  the  addition  of  subroutine  RAYCHK,  which  is  called  by  NXTCOL 
immediately  after  the  call  to  subroutine  RAY.  Fortunately  the  RAYIN  and 
RAYOUT  arrays  from  RAY  contain  all  the  information  necessary  to 
reconstruct  the  ray  penetration  parameters  for  the  undefined  region. 

When  a  particle  encounters  an  undefined  region,  RAYCHK  reconstructs  the 
ray  parameters  and  assigns  a  region  number  of  -99  and  a  material  number 
of  1000  (void)  to  the  undefined  region.  RAYCHK  then  prints  a  message 
for  each  of  the  first  25  undefined  region  encounters,  giving  the  region 
numbers  of  adjacent  regions  to  help  locate  the  problem  area.  The  RAYCHK 
subroutine  was  included  in  the  installatior  of  GIFTS  into  the  MASH 
version  of  MORSE. 

There  is,  of  course,  a  danger  of  analyzing  an  erroneous  geometry  with  a 
code  that  treats  geometric  undefined  regions  or  overlapping  regions  or 
both.  The  best  solution  appears  to  have  the  code  print  a  limited  number 
(e.g.,  20)  of  messages  indicating  that  it  has  found  undefined  or 
overlapping  regions  and  then  to  continue  the  calculation.  Users  could 
alter  the  logic  to  terminate  after  the  message,  if  they  wish.  In  any 
event,  the  user  must  be  responsible  to  generate  the  correct  code  input. 

The  bulk  of  the  data  used  in  GIFTS  is  stored  in  a  single  large  array  in 
COMMON  GIFTCM.  This  array  has  various  names  in  different  routines,  but 
usually  appears  as  MASTER  or  ASTER.  MASTER  and  ASTER  are  equivalenced 
for  storage  of  both  real  and  integer  data.  This  array  is  currently 
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dimensioned  to  5,000  in  the  GIFTS  geometry  routines  and  subroutine  GOMST 
of  the  MORSE  random  walk  interface  routines.  The  value  of  5,000  defines 
the  storage  used  throughout  the  code,  and  a  user  who  wishes  to 
redimension  this  value  either  upward  or  downward  needs  to  change  this 
common  size  throughout  the  code.  This  size  is  sufficient  for  a  medium 
size  problem.  SAIC  used  a  MASTER/ASTER  array  size  of  15,000  for  the 
analysis  of  some  very  large  problems.  It  was,  for  example,  sufficient 
for  the  analysis  of  the  MP6S  (Mobile  Position  Gun  System)  test  case, 
which  consists  of  281  solids  and  233  regions,  and  the  Long  Island 
Barracks,  which  consisted  of  308  solids  and  311  regions. 

There  are  12  sets  of  data  stored  in  the  MASTER/ ASTER  array  as  follows: 


1.  Solid  pointers,  one  word  per  solid  plus  1,  integer  data.  Two 
values  are  packed  in  each  word,  ITYPE  in  the  right  15  bits  and 
LOCDA  in  the  next  16  bits.  ITYPE  is  the  solid  type,  and  LOCDA  is 
the  beginning  location  at  which  specific  data  for  the  solid  are 
stored. 


2.  Solid  data,  as  required  to  describe  the  solids,  real. 


3.  Region  pointers,  integer,  one  word  for  each  region.  Two  values 
are  packed  in  each  word,  NUMOES  in  the  right  15  bits  and  LOCOES  in 
the  next  16  bits.  NUMOES  is  the  number  of  solids  in  the  region 
description  and  LOCOES  is  the  beginning  location  at  which  the 
region  descriptors  for  the  specific  region  are  stored. 


4.  Region  descriptors,  integer,  one  word  per  descriptor,  NUMOES 

descriptors  per  region.  Two  numbers  are  packed  in  each  word,  the 
solid  number  in  the  right  15  bits  and  an  operator  code  number  in 
the  left  16  bits.  The  operator  code  is  1  for  0R+,  2  for  OR-, 

3  for  RG+,  4  for  RG-,  5  for  +  and  6  for  -. 


5.  Region  circumscribing  RPP  data  (XMIN,  XMAX,  YMIN,  YMAX,  ZMIN,  ZMAX 
limits  for  each  region).  Six  words  of  real  data  are  stored  for 
each  region  (zone). 


6.  Ordered  region  numbers,  integer,  sorted  into  the  order  large  to 
small,  first  based  on  XMIN  values  for  circumscribing  RPP,  then  an 
XMAX,  on  YMIN,  on  YMAX,  on  ZMIN,  and  last  on  ZMAX.  The  total  size 
of  this  part  of'  the  MASTER/ ASTER  array  is  six  times  the  number  of 
regions,  beginning  at  storage  location  LREGON. 


6-22 


7.  XMIN,  XMAX,  YMIN,  YMAX,  ZMIN,  and  ZMAX  for  RPP  that  circumscribes 
the  overall  defined  geometry.  Six  words,  real,  beginning  at 
storage  location  LENRPP. 


8.  Identification  table,  integer,  one  word  for  each  region.  Two 
values  are  packed  in  each  word,  ISPACE  in  the  right  15  bits  and 
ITEM  in  the  next  16  bits.  ISPACE  is  the  space  code  number 
(columns  11-15  of  the  input  identification  table)  and  ITEM  is  the 
component  code  number  (columns  6-10  of  the  input  identification 
table) . 


9.  Region  ray  table,  integer,  one  word  per  region.  Three  values  are 
packed  in  each  word.  The  right  15  bits  stores  the  ray  number,  the 
next  10  bits  stores  the  location  where  the  ray  end  is  stored  and 
the  next  10  bits  stores  the  location  where  the  ray  start  is 
stored. 


10.  Ray  intersection  table  storing  distance  (RIN)  from  start  of  ray  to 
first  intersection  of  solid.  Real,  not  packed.  One  word  per 
sol  id. 


11.  Ray  intersection  table  storing  distance  (ROUT)  from  start  of  ray 
to  last  intersection  of  solid.  Real,  not  packed.  One  word  per 
solid. 


12.  Surfaces  and  ray  count,  one  word  per  solid.  Three  integers  packed 
per  word,  the  ray  number  is  the  right  14  bits,  the  surface  number 
at  ray  exit  in  the  next  9  bits,  and  the  surface  number  at  ray 
entry  in  the  next  9  bits. 


6.2.4  Modifications  to  NORSE  for  In-Group  Biasing 

Several  routines  in  the  MORSE  module  of  MASH  were  modified  to 
incorporate  the  changes  to  add  the  in-group  biasing  option.  Subroutines 
COLISN,  GPROB,  GSTORE,  GTIOUT,  and  INPUTl  were  modified,  and  a  new 
subroutine  GETLOC  was  added.  Also,  invoking  the  in-group  bias  option 
changes  the  definition  of  the  quantity  GWLO  from  the  probability  of 
secondary  particle  production  to  the  fraction  of  the  probability  of 
secondary  particle  production  specified  by  the  cross  sections  (natural 
probability) . 

Subroutine  INPUTl  was  modified  to  read  the  in-group  biasing  switch  INGB 
as  the  eighth  parameter  cn  CARD  I.  Variable  INGB  turns  on  the  in-group 
when  equal  to  1;  otherwise,  the  option  is  off.  INGB  is  in 
COMMON/ I GBABS/.  Subroutine  COLISN  handles  scattering  probabilities  P,j 
which  give  the  probability  of  scattering  to  group  j  when  a  scattering 
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has  occurred  in  group  1.  Originally  the  particle  weight  WATE  was 
multiplied  by  PNAB|,  the  non-absorption  probability  for  group  i  where  i 
was  the  group  coming  into  the  collision;  and  then  a  random  number  was 
compared  with  the  probabilities  P,j  to  select  the  outgoing  group.  This 
sampling  scheme  was  modified  for  in-group  biasing.  The  same  coding  is 
used  except  that  the  random  number  is  compared  to  F*Pfj,  where  F  is  a 
bias  factor  as  follows: 


if  i  »  j  -  1,  then  F 
if  i  «  j  ^  1,  then  F 
if  i  j,  then  F 


1.0 


PNABi 

1  -  P,,PNAB,- 


1  -  Pii 


After  the  outgoing  group  has  been  sampled,  the  weight  is  corrected  by 


WATE  -  WATE  *  PNAB/F. 


The  method  implemented  correctly  treats  in-group  biasing  with  or  without 
energy  biasing  and  includes  logic  for  splitting  when  WATE  exceeds  WTMAX. 
The  splitting  game  actually  resamples  the  upscatter  distribution  for 
each  splitting  secondary  particle.  In  this  way  each  secondary  is 
independent  of  the  others  so  that  the  probability  transition  is  more 
completely  represented  than  in  the  original  scheme  where  all  splitting 
secondaries  had  the  same  energy  group  and  the  same  direction  cosines. 


6.2.5  Modifications  to  MORSE-CG  for  the  NASH  Code  System 

The  current  version  of  MASH  contains  the  newest  MORSE-CG  routines.  The 
main  differences  between  this  and  the  previous  VCS  have  been  explained 
elsewhere  in  this  report.  The  routines  that  are  peculiar  to  MASH  have 
been  rewritten  with  the  following  characteristics: 

1.  All  arrays  are  now  variably  dimensioned.  This  required  the 
addition  of  several  arrays  of  data  to  blank  common.  Table  6-4 
defines  these  variables. 

2.  All  tape  unit  numbers  are  variables. 

3.  Common  structure  is  revised,  having  fewer  commons  with  more 
variables  in  each.  A  labelled  common  I VCS  was  added  for  this 
purpose,  and  it  is  defined  in  Table  6-5. 
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4.  Subroutine  structure  Is  slightly  different.  One  of  the  changes 
was  to  split  subroutine  BANKR  into  two  routines,  BANKR  and 
NBANKR. 

5.  Problems  terminate  in  an  orderly  manner.  If  a  job  fails 
because  the  particle  name  exceeds  the  maximum  storage  allowed 
(IMAXN),  data  generated  for  all  but  the  last  batch  is  copied 
from  the  scratch  unit  to  the  user's  save  unit.  A  message  is 
printed  by  the  new  routine  EREND  to  notify  the  user  of  this  and 
of  how  many  batches  were  actually  completed. 

6.  A  new  MORSE  leakage  tape  format  is  used  in  order  to  provide 
more  definitive  information  on  the  case  that  was  run. 


Table  6-4.  Location  of  MASH  Arrays  in  BLANK  COMMON. 


Mnemonic 

variable 

name 

Location  in 
blank  common 

BC(I)  or  NC(I) 

Purpose 

ILEAK(NB) 

I  -  NLAST  +  NB  -  1 

Number  of  particles/batch 
that  leak  from  system 

ILEAK(NITS+1) 

I  «  NLAST  +  NITS 

Number  of  records  of  leakage 
parameters 

ASORC(NB) 

I  -  LOCLK  +  NB  -  1 

Total  source  weight  for 
batch  NB 

BUF(IPOS) 

I  -  LOCASC  +  IPOS  -  1 

Temporary  storage  of  leakage 
parameters 

IGRUP(IN) 

I  -  LOCBUF  +  IN  -  1 

Group  number  of  source 
energy  in  forward  mode 

IDET(IN) 

I  -  LOCIGP  +  IN  -  1 

Detector  number  where  response 
for  escaping  particle  IN  will 
be  stored 

IVEH(IN) 

I  -  LOCIDT  +  IN  -  1 

Signal  indicating  where  (7,n) 
conversion  occurred 

RDEN(NR) 

I  -  LOCIVH  +  NR  -  1 

Density  factor  for  altering 

total  cross  section  for 
importance  region  NR 
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Table  6-5.  Definition  of  Variables  in  Common  IVCS. 


Variable  Definition 

SWATE  Total  source  weight  for  current  batch 

TOTS  Total  particle  weight  for  the  entire  run 

(i.e.,  the  summation  from  1  to  NITS  batches  of  SWATE) 

IMAXN  The  size  of  arrays  IVEH,  IGRUP,  IDET  -  defined  as  5*NM0ST 

MAXSZ  The  size  of  the  buffer  for  the  leakage  parameters 

(set  at  1000) 

IGRND  Media  number  of  ground 

lAIR  Media  number  of  air 

NREC  Number  of  records  written  to  scratch  unit  ISCU 

NAMEl  The  name  of  the  particle  that  split 

ISCU  Logical  unit  number  of  scratch  unit  for  leakage  parameter 

storage  (set  to  23) 

ICTU  Logical  unit  number  of  MORSE  leakage  tape  (set  to  24) 

IPOS  Counter  for  number  of  leakage  parameters  in  buffer 

LOCLK  Starting  location  in  blank  common  of  I LEAK  array 

LOCASC  Starting  location  in  blank  common  of  ASORC  array 

LOCBUF  Starting  location  in  blank  common  of  BUF  array 

LOCIGP  Starting  location  in  blank  common  of  IGRUP  array 

LOCIDT  Starting  location  in  blank  common  of  IDET  array 

LOCIVH  Starting  location  in  blank  common  of  IVEH  array 

LOCRDN  Starting  location  in  blank  common  of  RDEN  array 

TTL(IO)  Title  of  problem  (will  be  written  to  leakage  tape) 
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6.3  NORSE  INPUT  REQUIREMENTS 

This  section  describes  the  input  data  for  the  MORSE  program.  The  data 
is  free-form.  Most  of  the  rules  governing  FIDO  free-form  input  in 
Appendix  A  are  appropriate.  MORSE  free-form  input  requires  that  the 
'$$'  and  the  "**'  not  begin  in  column  1.  Error  messages  will  be  printed 
in  this  case,  but  users  often  misinterpret  them.  Therefore,  begin  the 
"$$"  and  "**"  parameters  in  column  2.  MORSE  input  also  does  not  require 
data  block  terminators  "T".  Standard  MORSE  includes  the  SAMBO  input 
(after  the  cross-section  module  input).  The  MORSE  component  in  MASH 
does  not  include  the  SAMBO  routines  since  the  analysis  of  the  adjoint 
leakage  tape  is  performed  in  DRC.  Consequently,  the  additional  input 
data  after  the  cross-section  input  are  special  data  required  by  MASH. 
This  data  replaces  the  usual  SAMBO  analysis  input. 


6.3.1  Random  Walk  Input  Instructions 
This  input  is  read  by  subroutine  INPUTl. 

CARD  A  Job  Title  Card  [20A4] 

TITLE  80  alphanumeric  character  description 

[NOTE:  Any  character  other  than  a  blank  or  alphanumeric  in  column  one 
will  terminate  the  job.] 


CARD  B  Job  Control  Parameters  [Begin  array  with  "$$"] 

$$ 

NSTRT  number  of  particles  per  batch 

NMOST  maximum  number  of  particles  allowed  for  in  the 

bank(s);  may  equal  NSTRT  if  no  splitting,  fission, 
and  secondary  generation 
NITS  number  of  batches 

NQUIT  number  of  sets  of  NITS  batches  to  be  run  without 
calling  subroutine  INPUT 
NGPQTN  number  of  neutron  groups  being  analyzed 

.  5  — 

NGPQTG  number  of  gamma-ray  groups  being  analyzed 
NMGP  number  of  primary  particle  groups  for  which  cross 

sections  are  stored;  should  be  same  as  NGP  (or  the  same 
as  NGG  when  NGP  «  0)  on  Card  XB  read  by  subroutine  XSEC 
NMTG  total  number  of  groups  for  which  cross  sections  are 
stored;  should  be  same  as  NGP+NGG  as  read  on  Card  XB 
read  by  subroutine  XSEC 
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NCOLTP  set  greater  than  zero  if  a  collision  tape  is  desired;  the 
collision  tape  is  written  by  the  user  routine  BANKR 
lADJM  set  greater  than  zero  for  an  adjoint  problem 

[NOTE:  For  NASH  analysis,  lADJN  Is  always  set  >  0] 

-  10  — 

MAXTIM  maximum  clock  time  in  minutes  allowed  for  the  problem 
to  be  on  the  computer;  [15.5  hrs  is  max] 

MEDIA  number  of  cross -sect ion  media;  should  agree  with  NMED 
on  Card  XB  read  by  subroutine  XSEC 
MEDALB  albedo  scattering  medium  is  absolute  value  of  MEDALB; 
MEDALB  *  0,  no  albedo  information  to  be  read  in, 

MEDALB  <  0,  albedo  only  problem  -  no  cross  sections 
are  to  be  read, 

MEDALB  >  0,  coupled  albedo  and  transport  problem. 

[NOTE:  For  HASH  analysis,  MEDALB  is  always  set  ■  0] 

[NOTE:  See  Table  6>3  in  Section  6.2.2  for  examples  on  parameters 
NGPQTN,  NGPQTG,  NNGP,  and  NNTG.] 


CARD  C  Source  Control  Parameters  [Use  "$$"  and  as  indicated] 

$$ 

ISOUR  source  energy  group  if  >  0 

[if  ISOUR  <  0  or  if  ISOUR  =  0  and  NGPFS  *  0, 

SORIN  is  called  for  input  of  Cards  El  and  E2.] 

NGPFS  number  of  groups  for  which  the  source  spectrum  is 
to  be  defined.  [If  ISOUR  <  0,  NGPFS  2:  2] 

ISBIAS  no  source  energy  biasing  if  set  equal  to  zero; 
otherwise  the  source  energy  is  to  be  biased, 
and  Cards  E2  are  required. 

NOTUSD  an  unused  variable.  Must  specify  a  "0". 

** 

WTSTRT  weight  assigned  to  each  source  particle 

EBOTN  lower  energy  limit  of  lowest  neutron  group  (eV) 

(group  NMGP) 

EBOTG  lower  energy  limit  of  lowest  gamma-ray  group  (eV) 

(group  NMTG) 

TCUT  age  in  sec  at  which  particles  are  retired; 
if  TCUT  ■  0,  no  time  kill  is  performed 

VELTH  velocity  of  group  NMGP  when  NGPQTN  >  0; 
i.e.,  thermal -neutron  velocity  (cm/sec) 
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CARD  D  Source  Control  Parameters  [Begin  with  "**".] 

** 

XSTRT  -I 

YSTRT  —  X,  Y,  Z  coordinates  for  source  particles 
ZSTRT  -■ 

AGSTRT  starting  age  for  source  particles. 

UINP  -1  source  particle  direction  cosines; 

VINP  —  if  all  are  equal  to  zero, 

WINP  — '  isotropic  directions  are  chosen  in  MORSE 

[NOTE:  Source  data  on  Cards  C  and  D  will  be  overridden  by  any  changes 
in  subroutine  SOURCE.] 

CAROS  El  Input  Source  Distribution  [Begin  with  "**"] 

[NOTE:  Omit  if  ISOUR  on  Card  C  >  0  or  if  ISOUR  >  NGPFS  >  0] 

FS  NGPFS  values  of  FS,  where  FS  equals  the  unnormalized 

fraction  of  source  particles  in  each  group 

CARDS  E2  Relative  Importance  of  Group  Source  [Begin  with  "**"] 

[NOTE:  Omit  if  ISOUR  >  0  or  if  ISOUR  <  0  and  ISBIAS  «  0] 

BFS  NGPFS  values  of  BFS,  the  relative  importance  of  a 

source  in  group  I.  (If  ISBIAS  >  0) 

CARDS  F  Energy  Group  Boundaries  [Begin  with  "**"] 

** 

ENER  NMTG  values  of  ENER,  the  energies  (in  eV)  at  the  upper 
edge  of  the  energy  group  boundaries 

[NOTE:  The  lower  energies  of  groups  NMGP  and  NNTG  were  read  on  Card  C.] 
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CARD  G  Collision  Tape  Control  Parameters  [215, 5X, 3611, 5X, 1311] 

[NOTE:  Omit  if  NCOLTP  on  Card  B  l  0] 


NHISTR 

NHISMX 

NB1ND(J),J.1,36 

NC0LLS(J),J=1,13 


logical  tape  number  for  the  first  collision  tape, 
the  highest  logical  number  that  a  collision  tape 
may  be  assigned. 

an  index  to  indicate  the  collision  parameters  to 
be  written  on  tape. 

an  index  to  indicate  the  types  of  collisions  to 
be  put  on  tape. 


[NOTE:  See  Tables  6-1  and  6-2  in  Section  6.2.1  for  Information 
concerning  NBIND  and  NCOLLS.] 


CARO  H  Random  Number 

RANDOM  starting  random  number. 

IBM  3033  -  (Z12  Format) 

CRAY  -  {4X,020  Format) 

CDC  6600  -  {4X,020  format) 

UNIVAC  1108  -  (4X,012  Format) 


CARD  I  Biasing  Control  Parameters  [Begin  with  "$$"] 

$5 

NSPLT  index  indicating  that  splitting  is  allowed  (if  >  0) 

NKILL  index  indicating  that  Russian  roulette  is  allowed  (if  >  0) 
NPAST  index  indicating  that  exponential  transform  is  invoked 
(if  >  0)  (Subroutine  DIREC  required) 

NOLEAK  index  indicating  that  non-leakage  is  invoked  (if  >  0) 
lEBlAS  index  indicating  that  energy  biasing  is  allowed  (if  >  0) 
MXREG  number  of  importance  regions  described  by  geometry  input 
(will  be  set  to  one  if  s  0) 

MAXGP  group  number  of  last  group  for  which  Russian  roulette  or 
splitting  or  exponential  transform  is  to  be  performed. 
[Note:  For  adjoint,  set  ■  NMTG  or  overstoring  results.] 
INGB  in-group  bias  switch  (INGB  >  1  recommended) 

■  1  implies  use  in-group  biasing 
«  0  implies  do  not  use  in-group  biasing 
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CARD  J  Biasing  Parameters  [use  "$$"  and  "**"  as  indicated] 
[NOTE:  Omit  If  NSPLT  -i-  NKILL  -i-  NPAST  -  0] 


$$ 

The  following  weight  standards  and  path-stretching 
parameters  are  assigned  from  energy  group  NGPl  to 
energy  group  NGP2,  inclusive,  in  steps  of  NDG  and 
from  importance  region  NRGl  to  importance  region 
NRG2,  inclusive,  in  steps  of  NDRG.  If  NGPl  =  0, 
groups  1  to  MAX6P  will  be  used;  if  NRGl  =  0, 
importance  regions  1  to  MXREG  will  be  used  (both 
in  steps  of  one).  Usually,  NDG  «=  1  and  NDRG  =  1. 

** 


NGPl 

NDG 

NGP2 

NRGl 

NDRG 

NRG2 


WTHIHl  weight  above  which  splitting  will  occur. 

WTLOWl  weight  below  which  Russian  roulette  is  played. 

WTAVEl  weight  given  thosG  particles  surviving  Russian  roulette. 
PATH  path-length  stretching  parameters  for  use  in 
exponential  transform  (usually  0  <  PATH  <  1). 

[NOTE:  The  above  Information  is  repeated  until  data  for  all  groups 
and  importance  regions  are  input.] 

[NOTE:  End  Card(s)  J  with  a  negative  value  of  NGPl,  i.e.,  NGPl^  -1 
example  $$-1  0  0  0  0  0  **  0.0  0.0  0.0  0.0] 


CARDS  K  Energy  Biasing  Parameters  [Begin  with  "**"] 

[NOTE:  Omit  if  lEBIAS  on  Card  I  £  0] 

** 

((EPROB(IG,NREG),  IG  =  1,  NMTG),  NREG  =  1,  MXREG) 

Values  of  the  relative  energy  importance  of  particles 
leaving  a  collision  in  importance  region  NREG.  Input 
for  each  region  must  start  on  a  new  card. 


CARD  L  Problem  Identification  [Begin  with  "$$"] 

$$ 

NSOUR  set  <  0  for  a  fixed  source  problem;  otherwise  the  source 
is  from  fissions  generated  in  a  previous  batch 
MFISTP  index  for  fission  problem,  if  <  0  no  fissions  are  allowed 
NKCALC  the  number  of  the  first  batch  to  be  included  in  the 
estimate  of  K^ft;  if  <  0  no  estimate  of  is  made 
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NORMF  the  weight  standards  and  fission  weights  are  unchanged 
if  <  0;  otherwise  fission  weights  will  be  multiplied,  at 
the  end  of  each  batch,  by  the  latest  estimate  of  K^ff  and 
the  weight  standards  are  multiplied  by  the  ratio  of 
fission  weights  produced  in  previous  batch  to  the  average 
starting  weight  for  the  previous  batch.  For 
time-dependent  decaying  systems,  NORMF  should  be  >  0. 


CARDS  H  Fission  Neutron  Weights  [Begin  with  "**"] 

[NOTE;  Omit  if  MFISTP  on  Card  L  i  0] 

** 

(FWL0{I),  1=1,  MXREG) 

values  of  the  weight  to  be  assigned  to  fission  neutrons. 


CARDS  N  Fission  Induced  Source  Particle  Fractions  [Begin  with  "**"] 

[NOTE:  Omit  if  MFISTP  on  Card  L  1  0] 

** 

(FSE(IG,IMED),  IG  =  1,  NMGP),  IMED  =  1,  MEDIA) 

the  fraction  of  fission-induced  source  particles  in 
group  IG  and  medium  IMED. 

[NOTE:  Input  for  each  medium  must  start  on  a  new  card.] 

CARDS  0  Secondary  Particle  Production  Probability  [Begin  with  "**"] 

[NOTE:  Omit  if  NGPQTN  -  0  or  NGPQTG  «  0,  i.e.,  include  if 
coupled  neutron  gamma-ray  problem] 


** 

((GWLO(IG,NREG)  IG  -  1,  NMGP  or  NMTG  -  NMGP),  NREG  =  1,  MXREG) 

values  of  the  probability  of  generating  a  secondary 
particle.  The  secondary  particle  will  be  a  gamma  ray 
in  the  forward  problem  and  a  neutron  in  the  adjoint 
problem.  NMGP  groups  are  read  for  each  importance 
region  in  a  forward  problem  and  NMTG-NMGP  for  an 
adjoint  problem. 
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[NOTE:  The  definition  of  6WL0  depends  on  whether  or  not 

In-group  biasing  Is  specified  (Card  I,  variable  INGB), 
as  follows: 

1NGB>1  (In-group  biasing  Invoked)  GWLO  Is  the  fraction 
of  the  natural  production  probability  as  specified 
by  the  cross  sections  and  may  be  assigned  values 
greater  than,  equal  to,  or  less  than  one. 

INGB>0  (no  In-group  biasing)  GWLO  Is  the  probability  of 
generating  a  gamma  ray  (adjoint  neutron).] 


[NOTE:  Input  for  each  Importance  region  must  start  on  a  new  card.] 


6.3.2  GIFTS  Geometry  Input  Instructions 
This  input  card  is  read  in  subroutine  GIFTM. 


CARD  GA  GIFTS  Program  Control  Card  [1011,  2F10.0,  315  format] 

[NOTE:  Option  Is  not  set  if  >  0;  otherwise  the  option  Is  set] 

IPRNT  print  MASTER- ASTER  array  of  processed  geometry 
ITEMPR  print  identification  table  by  item 
IMNMAX  print  ordered  region  rpp  equivalents 
ISOLEQ  print  solid  rpp  equivalents 
NOPRNT  suppress  GENI  printing 

-  5  — 

IWSOL  print  solid  table 

IWREG  print  region  table 

IWRPP  print  region  rpp  table 

IWID  print  region  identification  table 

IWSUM  print  summary  table 

-  10  — 

TOL  geometry  tolerance 

TOLLOS  1 ine-of-sight  tolerance 

IVOID  void  space  code 

IFANTM  phantom  item  code 

lEND  signal  end  of  components  along  ray 


The  control  specifications  card  consists  of  first,  a  series  of  ten  print 
control  switches  on  1011  format,  for  which  a  0  usually  means  "do  not 
print"  and  a  1  means  "print".  "0000100000"  appears  useful  for  this 
card.  Next  are  tolerances,  for  which  0.001  appears  adequate.  The  last 
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inputs  on  the  card  are  void,  phantom  and  ray  end  codes,  1,  0,  and  0, 
respectively. 


The  GIFTS  input  geometry  consists  of  five  parts  as  follows: 

1.  Title  Card 

2.  Target  Specification  Card 

3.  Solids  Table 

4.  Regions  Table 

5.  Region  Identification  Table 

Detailed  descriptions  of  all  these  sections  of  input  are  given  in 
Appendix  C.  Here,  only  the  input  instructions  will  be  presented. 


NOTE:  The  next  six  sections  of  input  (Cards  6B  through  Cards  GG) 
for  MASH  are  read  from  LOGICAL  UNIT  8  (as  currently 
configured).  This  is  noted  because  the  rest  of  the  input 
is  read  from  LOGICAL  UNIT  5.) 


CARD  GB  GIFTS  Title  Card  [A2,  3X,  A60  format] 

TGTUN  target  unit  specification  [(cm)  only  for  MASH] 
ITITLE  target  geometry  description  title 

This  input  card  is  read  in  subroutine  GENI. 


CARD  GC  GIFTS  Target  Specification  Card  [2IS  format] 

NSOLID  number  of  geometry  solids  in  Solids  Table 
NRMAX  number  of  geometry  regions  in  Regions  Table 

This  input  card  is  read  in  subroutine  GENI. 


CARD  GD  GIFTS  Solids  Table  [AS,  A3,  Al,  IX,  6F10.0,  AlO  format] 

These  input  cards  are  read  in  subroutine  SOLIN. 

The  solids  table  defines  the  basic  geometric  shapes.  Table  6-6 
summarizes  the  input  for  the  different  solid  types.  The  basic  format 
for  all  cards  in  the  solids  table  is  (AS,  A3,  Al,  IX,  6F10.0,  AlO)  with 
the  first  field  (AS)  in  the  format  normally  used  for  the  sequence  number 
of  the  solid  in  the  solid  table,  the  second  field  (A3)  used  to  designate 
solid  type  (e.g.,  RPP  for  rectangular  parallelpiped  or  SPH  for  sphere) 
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Table  6-6.  Summary  Description  of  Input  for  Solids  Table. 


1-5 

6-8 

9-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

71-80 

NO. 

RPP 

XMIN 

XMAX 

YMIN 

YMAX 

ZMIN 

ZMAX 

COMMENTS 

NO. 

BOX 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

WX 

WY 

WZ 

DX 

DY 

DZ 

COMMENTS 

NO. 

RAW 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

WX 

WY 

WZ 

DX 

DY 

DZ 

COMMENTS 

NO. 

SPH 

VX 

VY 

VZ 

R 

COMMENTS 

NO. 

ELL 

VX 

VY 

VZ 

AX 

AY 

AZ 

COMMENTS 

NO. 

B 

COMMENTS 

NO. 

ELL 

G 

VX 

VY 

VZ 

AX 

AY 

AZ 

COMMENTS 

BX 

BY 

BZ 

CX 

CY 

AZ 

COMMENTS 

NO. 

TOR 

VX 

VY 

VZ 

NX 

NY 

NZ 

COMMENTS 

R1 

R2 

NO. 

RCC 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

R 

COMMENTS 

NO. 

REC 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 

TRC 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

R1 

R2 

NO. 

TEC 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 

RATIO 

COMMENTS 

NO. 

TGC 

VX 

VY 

VZ 

HX 

HY 

HZ 

COMMENTS 

NO. 

AX 

AY 

AZ 

BX 

BY 

BZ 

COMMENTS 

NO. 

T(A) 

T(B) 

COMMENTS 

NO. 

HAF 

A 

B 

C 

D 

COMMENTS 

NO. 

ARS 

NC 

NP 

NR 

COMMENTS 

NO. 

XI 

Y1 

Z1 

X2 

Y2 

12 

COMMENTS 

NO. 

X3 

Y3 

Z3 

ETC. 

COMMENTS 

(START 

NEW  CARD  WITH 

EACH  CURVE) 

CONVEX 

ARS  HAS  SAME  INPUT  EXCEPT  COLS  9- 

10  NOT 

BLANK 
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Table  6-6.  Summary  Description  of  Input  for  Solids  Table  (Continued). 


1-5 

6-8 

9-10 

11-20 

21-30 

31-40 

41-50 

51-80 

61-70 

71-80 

NO. 

ARB 

4 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

COMMENTS 

NO. 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

FACES 

GENERATED 

123 

412  423 

431 

NO. 

ARB 

5 

XI 

Y1 

Z1 

X2 

X2 

Z2 

COMMENTS 

NO. 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 

X5 

Y5 

Z5 

COMMENTS 

FACES 

GENERATED 

1234 

512  523 

534 

541 

NO. 

ARB 

6 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

COMMENTS 

NO. 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

COMMENTS 

FACES 

GENERATED 

1234 

2365  1564  512 

634 

NO. 

ARB 

7 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

COMMENTS 

NO. 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

COMMENTS 

NO. 

X7 

Y7 

Z7 

COMMENTS 

FACES 

GENERATED 

1234 

587  145 

2376 

1265 

4375 

NO. 

ARB 

8 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

COMMENTS 

NO. 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

COMMENTS 

NO. 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

COMMENTS 

NO. 

X7 

Y7 

Z7 

X8 

Y8 

Z8 

COMMENTS 

FACES 

GENERATED 

1234 

5678  1584  2376  1265 

4378 

NO. 

ARB 

N 

Apr 

NPE  1 

NEQ 

NAE 

COMMENTS 

NO. 

XI 

Y1 

Z1 

ETC. 

COMMENTS 

NPE.NE.O 

[6(14,2130] 

(NEG.« 

-Y) 

NO. 

FACEl 

FACE2 

FACE3 

ETC. 

COMMENTS 

NEQ.NE.O 

NO. 

A1 

B1 

Cl 

D1 

COMMENTS 

NO. 

A2 

B2 

C2 

D2 

COMMENTS 

NO. 

ETC. 

COMMENTS 

NAE.NE.O 

[2(F10.4,I10)] 

NO. 

AZl 

ELI 

PNl 

AZ2 

EL2 

PN2 

COMMENTS 

NO. 

AZ3 

EL3 

PN3 

ETC. 

COMMENTS 
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Table  6-6.  Summary  Description  of  Input  for  Solids  Table  (Continued). 


SOLID  TABLE  SYMBOLS  (A5,A3,A2,6F10.0,A10) 

V  -  VERTEX 

H  -  HEIGHT  VECTOR 

W  -  WIDTH 

D  -  DEPTH 

N  -  NORMAL 

A  -  SEMI -MAJOR  AXIS 

B  -  SEMI-MINOR  AXIS 

C  -  SEMI-MINOR  AXIS  OF  ELLIPSE  OF  XSECT  (ELLG) 

R  -  RADIUS 

T  -  LENGTH  OF  TOP  AXIS  WITH  SAME  DIRECTION  AS  BOTTOM  AXIS 
NC  -  NUMBER  OF  CURVES 
NP  -  NUMBER  OF  POINTS  PER  CURVE 
NR  -  NUMBER  OF  POINTS  READ  DIRECTLY 

ARBN  AND  HAF  SYMBOLS 

NPT  -  NUMBER  OF  POINTS 

NPE  -  NUMBER  OF  FACES  DEFINED  BY  3  POINTS 

NEQ  -  NUMBER  OF  FACES  DEFINED  BY  EQUATION 

NAE  -  NUMBER  OF  FACES  DEFINED  BY  AZ,  EL  AND  POINT 

A,B,C.D  -  PLANE  EQUATION  COEFFECIENTS  AX  +  BY  +  CZ  -  D 

AZ  -  AZIMUTH  ANGLE 

EL  -  ELEVATION  ANGLE 

PN  -  POINT  NUMBER 


or  blank  if  a  continuation  card  for  the  solid,  the  third  (Al)  field  used 
to  designate  a  variant  of  the  solid  type  (e.g.,  a  6  for  a  six-vertex 
arbitrary  polyhedron  or  ARB6),  the  fourth  field  (6F10.0)  used  for  the 
solid  parameters,  and  the  final  (AlO)  field  reserved  for  user  notes  or 
comments. 

The  parameters  required  to  define  the  various  solids  are  different  from 
one  type  of  solid  to  another.  Usually,  however,  the  parameters  can  be 
classified  as  being  one  of  three  types,  a  "vertex  point",  a  "vector"  or 
a  "scalar".  The  vertex  point  is  specified  by  its  X,Y,Z  coordinates,  a 
vector  is  specified  by  its  components  in  the  X,  Y,  and  Z  directions,  and 
a  scalar  is  a  single  numeric  value,  for  example  the  radius  of  a  sphere. 

The  summary  of  the  solids  table  input  data  given  by  Table  6-6  will  be 
useful  for  persons  familiar  with  combinatorial  geometry,  but  a  more 
detailed  description  of  the  geometry  solid  types  and  their  input  is 
necessary  for  new  users  and  for  users  using  new  and  more  exotic  solid 
types.  Therefore  a  more  detailed  description  of  the  various  geometry 
solid  types,  including  pictures,  has  been  included.  Because  of  its 
bulk,  this  description  has  been  placed  in  Appendix  C. 
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CARD  6E  GIFTS  Regions  Table  [IS,  IX,  9(A2,  IS)  IX,  AlO  format] 

These  input  cards  are  read  in  subroutine  REGIN. 

The  GIFTS  geometry  regions  table  is  very  similar  to  the  zones  table  in 
MORSE  combinatorial  geometry.  Via  the  regions  table,  the  shape  and 
space  of  several  solids  can  be  "combined"  to  define  a  component  of  the 
system  being  described.  Three  operators,  a  "+",  a  and  an  "OR",  and 
combinations  thereof,  are  used  to  define  the  "intersection", 
"subtraction"  or  "union"  of  solids  to  form  a  more  complex  shape.  A 
detailed  description  of  how  to  use  these  operators,  along  with  several 
examples,  is  given  in  Appendix  B.  The  un- initiated  user  of 
combinatorial  geometry  should  refer  to  these  examples  before  attempting 
to  model  a  complex  geometry. 

The  general  format  for  the  regions  table  is  15,  IX,  9(A2,I5)  IX,  AlO. 

The  first  (15)  field  is  the  region  sequence  number.  Each  line  has 
provisions  for  nine  pairs  of  OR  operator  fields  and  solid  numbers  with  + 
or  -  sign,  followed  by  10  spaces  for  comment.  (The  IX  means  an  unused 
column  on  the  card).  Continuation  cards  can  be  used  for  regions 
described  by  the  combination  of  more  than  nine  bodies.  For  continuation 
cards,  the  region  (first  15)  entry  is  left  blank. 

[NOTE:  The  cards  of  the  above  format  defining  the  various  regions  in 
the  configuration  are  followed  by  a  card  with  a  -1  in  columns  4  and  5. 
This  "-1  CARD",  as  it  is  called,  is  the  flag  that  marks  the  end  of  the 
region  table.] 

CARD  GF  GIFT5  Region  Identification  Table  [515,  5X,  A40  format] 

These  input  cards  are  read  in  subroutine  IDIN 

The  identification  table  is  used  to  assign  identification  code  numbers 
and  additional  information  to  the  regions  defined  in  the  region  table. 
Entries  in  the  identification  tables,  in  format  (515,  5X,  A40),  are  as 
f ol 1 ows : 


Columns 

Parameter 

1 

-  5 

Region  number 

6 

-  10 

Component  code  number  (1-9999) 

11 

-  15 

Space  code  number  (1-99) 

16 

-  20 

Material  cc'f^ 

21 

-  25 

Percent  density 

31 

-  70 

Alphanumeric  region  description 
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Most  of  the  above  information  is  not  used  by  the  GIFTS  package  in  MORSE; 
nevertheless  the  table  must  be  included  in  input  runstreams.  For  MORSE, 
only  the  region  number  (columns  1-5)  need  be  entered.  All  the  other 
columns  may  be  left  blank  (material  numbers  are  assigned  in  other  input 
to  MORSE). 


CARD  GG  GIFTS  Region  RPP  Table 

[NOTE:  The  Region  RPP  Table  discussed  in  Appendix  C  is  optional  and 
typically  is  not  input  in  MASH.  The  GIFTS  program  will 
automatically  produce  a  Region  RPP  Table.  Consequently,  the 
user  does  not  have  to  enter  any  data  here.] 


REMINDER:  The  remaining  sections  of  input  for  MASH  are  read  from 
LOGICAL  UNIT  5.  This  is  noted  because  the  previous 
six  sections  of  the  input  (Cards  GB  through  Cards  GG) 
were  read  from  LOGICAL  UNIT  8. 


CARD  GH  Geometry  Region  Material  Specification  Table  [1415  format] 
This  input  card  is  read  in  subroutine  OVER. 

MED  material  number 

NOMED  number  of  regions  which  are  made  up  of  material  MED 
IZONE(I),  I  «  1,  NOMED 

NOMED  region  numbers  having  the  material  number  MED 

[NOTE:  These  cards  are  entered  (in  sets)  for  each  code  material  number 
until  all  regions  have  a  designated  material.  The  first  two 
parameters  (NED  and  NOMED)  are  on  a  card  by  themselves.  The 
region  numbers  are  then  entered  on  a  second  card.] 

CARD  GI  Importance  Region  Assignment  Table  [1415  format] 

This  input  card  is  read  in  subroutine  OVER 
IR(I),  1=1,  NRMAX 

the  importance  region  assignment  for  each  geometry  region 
is  read  in  this  array. 
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6.3.3  Cross-Section  Nodule  Input  Instructions 
This  input  is  read  by  subroutine  XSEC. 


CARO  XA  Cross  Section  Title  Card  [20A4] 

[NOTE:  This  title  Is  also  written  on  tape  If  a 

processed  tape  Is  written;  therefore,  It  Is 
suggested  that  the  title  be  definitive.] 


CARD  XB  Cross  Section  Control  Parameters  [Begin  with  "$$"] 

$$ 

N6P  the  number  of  primary  groups  for  which  there  are  cross 
sections  to  be  stored.  Should  be  same  as  NMGP  input 
in  MORSE. 

NDS  number  of  primary  downscatters  for  NGP  (usually  NGP). 

NGG  number  of  secondary  groups  for  which  there  are  cross 

sections  to  be  stored. 

NOSG  number  of  secondary  downscatters  for  NGG  (Usually  NGG). 

INGP  total  number  of  groups  for  which  cross  sections  are  to 
be  input. 

.  5  — 

ITBL  table  length,  i.e.,  the  number  of  cross  sections  for  each 
group;  (usually  equal  to  number  of  downscatters 
+  number  of  upscatters  +  IHT). 

ISGG  location  of  within-group  scattering  cross  sections; 

(usually  equal  to  number  of  upscatters  plus  IHT+1). 

NMED  number  of  media  for  which  cross  sections  are  to  be  stored; 
should  be  same  as  MEDIA  input  in  MORSE. 

NELEM  number  of  elements  for  which  cross  sections  are  to  be  read. 

NMIX  number  of  mixing  operations  (elements  times  density 

operations)  to  be  performed  (must  be  >  1). 

-  10  — 

NCOEF  number  of  coefficients  for  each  element,  including  Pq. 

NSCT  number  of  discrete  angles  (usually  the  integer  value 
of  NCOEF/2). 

ISTAT  flag  to  store  Legendre  coefficients  if  greater  than  zero. 

IHT  location  of  total  cross  section  in  the  table. 


[NOTE:  See  Table  6-3  in  Section  6.2.2  for  examples  on  parameters 
NGP.  NGG.  and  INGP.] 


CARD  XC  Cross  Section  I/O  parameters  [Begin  with  "$$"] 

S$ 

IRDSG  switch  to  print  the  cross  sections  as  they  are  read 
(if  >  0). 

ISTR  switch  to  print  cross  sections  as  they  are  stored 
(if  >  0). 

IFMU  switch  to  print  intermediate  results  of  fi's  calculation 
(if  >  0).  (Ignored  if  IXTAPE  <  0) 

IMOM  switch  to  print  moments  of  angular  distribution  (if  >  0). 
(Ignored  if  IXTAPE  <  0) 

IPRIN  switch  to  print  angles  and  probabilities  (if  >  0). 
(Ignored  if  IXTAPE  <  0) 


IPUN  switch  to  print  results  of  bad  Legendre  coefficients 
(if  >  0). 

IDTF  switch  to  signal  that  input  format  is  DTF-IV  format 
(if  >  0);  otherwise,  ANISN  format  is  assumed. 

(Ignored  if  IXTAPE  <  0) 

IXTAPE  logical  tape  unit  if  binary  cross  section  tape;  set  equal 
to  0  if  cross  sections  are  from  cards.  If  negative,  then 
the  processed  cross  sections  and  other  necessary  data  from 
a  previous  run  will  be  read;  in  this  case  (IXTAPE  <  0)  no 
cross  sections  from  cards  and  no  mixing  cards  may  be  input. 
The  absolute  value  of  IXTAPE  is  the  logical  tape  unit. 

JXTAPE  logical  tape  unit  of  a  processed  cross-section  tape  to  be 
written.  This  processed  tape  will  contain  the  title  card, 
the  variables  from  common  LOCSIG  and  the  pertinent  cross 
sections  from  blank  common. 

I06RT  logical  tape  unit  of  a  point  cross-section  tape  in 
06R  format. 

-  10  — 

IGQPT  last  group  (MORSE  multigroup  structure)  for  which  the 
06R  point  cross  sections  are  to  be  used  (<  NMGP). 


CARD  XD  Element  Identifiers  [Begin  with  "$$"] 


[NOTE:  Omit  if  IXTAPE  i  0] 

Element  identifiers  for  cross-section  tape.  If  element 
identifiers  are  in  same  order  as  elements  on  tape,  the 
efficiency  of  the  code  is  increased  due  to  fewer  tape 
rewinds. 
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CARDS  XE  Cross  Sections  from  Cards  [Begin  with  "**"  if  free-form] 


[NOTE:  Omit  if  IXTAPE  A  0] 

If  cross  sections  are  in  free-form,  a  card  with  "**"  in 
columns  2  and  3  must  precede  the  actual  data.  ANISN 
format  if  IDTF  <  0;  otherwise,  DTP- IV  format.  Cross 
sections  for  INGP  groups  with  a  table  length  ITBL  for 
NELEM  elements  each  with  NCOEF  coefficients. 


CARDS  XF  Cross-Section  Mixing  Table  [Use  "$$"  and  "**"  as  indicated] 


[NOTE:  Omit  if  IXTAPE  <  0] 

$$ 

KM  medium  number. 

KE  element  number  occurring  in  medium  KM  (negative  value 
indicates  last  mixing  operation  for  that  medium). 
Failure  to  have  a  negative  value  causes  code  not  to 
generate  angular  probabilities  for  that  media,  i.e. 
(LEGEND  and  ANGLE  not  called). 


RHO  density  of  element  KE  in  medium  KM  in  units  of 
atoms/ (barn  cm). 

Example  Card  XF:  $$  KN  KE  **  RHO 


[NOTE:  NMIX  (see  Card  XB)  cards  are  required.] 


CAROS  XG  06R  Tape  Control  Parameter  [Begin  with  ”$$"] 


[NOTE:  Omit  if  I06RT  <  0] 

S$ 

NXPM  number  of  point  cross-section  sets  per  medium  found 
on  an  06R  tape. 

«  1,  total  cross  section  only, 

■  2,  total  +  scattering  cross  section, 

■  3,  total,  scattering,  and  v*fission  cross  section. 
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6.3.4  Special  MASH  Input  Instructions 

In  addition  to  the  MORSE  Input  described  above,  the  following  input  data 
is  required  for  a  MASH  run.  These  parameters  are  either  included  on  the 
leakage  tape  read  by  DRC,  or  are  used  to  determine  parameters  used  on 
the  leakage  tape. 


CARD  AA  Leakage  Tape  Title  [10A4] 

TTL  Title  to  be  placed  on  leakage  tape 

CARD  BB  Region  Density  Factors  [Begin  with  "**"] 

■kie 

RDEN(I),  1=1,  MXREG 

Density  factor  for  each  importance  region 


CARD  CC  Air/Ground  Media  Indicators  [Begin  with  "$$"] 

$$ 

IGRND  Media  number  of  the  ground 

lAIR  Media  number  of  air 


Two  media  numbers  must  be  specified  wherein  a  flag  is 
placed  on  the  product  of  secondary  particle  (neutron) 
generation.  The  variable  names  assigned  to  these  numbers 
indicate  that  the  conventional  application  of  this  input 
is  to  flag  neutrons  generated  in  the  ground  (IGRND)  and 
the  air  ^AIR).  Any  media  may  be  specified,  with  the 
understanding  that  the  contribution  of  the  flagged 
particles  will  be  labeled  GRDUND  and  AIR,  regardless  of 
their  true  source. 


6.4  ANISN  NUCLIDE  FORMAT  CROSS-SECTION  FILE 

In  a  MORSE  problem,  cross  sections  are  read  from  card  input  and/or  from 
an  external  data  set  in  nuclide-organized  format,  i.e.,  all  the  cross 
sections  for  one  group  of  one  nuclide,  followed  by  other  groups  for  that 
nuclide,  and  finally  followed  by  data  for  other  nuclides.  Within  a 
group,  MORSE  expects  the  ordering  of  data  in  the  cross  section  table  in 
the  following  format: 
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Table  Position 

Entry 

Cross  Section  Type 

1 

»’(g) 

First  activation  cross  section 
(if  any) 

IHT-3 

a^{g) 

Last  activation  cross  section 
(if  any) 

IHT-2 

Absorption 

IHT-1 

»^<x^(g) 

Neutron  Production 

IHT 

a'(g) 

Total  removal 

IHT+1 

o^^H9) 

Total  upscatter  cross  section  from 

group  g  (omit  this  entry  if  NUS=0) 

HS-NUS 

<;(g+NUS-*g) 

Scattering  from  group  g+NUS  to  g 

IHS-1 

‘^(g+i^g) 

Scattering  from  group  g+1  to  g 

IHS 

t^(g-g) 

Scattering  from  group  g  to  g 

IHS+1 

a(g-l-»g) 

Scattering  from  group  g-1  to  g 

IHM 

(7(g-NDS-g) 

Scattering  from  group  g-NDS  to  g 

From  this,  it  can  be  seen  that: 

NUS  «  IHS-IHT-2  =  number  of  upscatter  groups,  if  greater  than  0, 
NDS  -  IHM-IHS  *  number  of  downscatter  groups, 

L  =  IHT-3  »  number  of  activation  cross  sections. 
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Special  illustrations  of  interest  are: 


IHM  =  IGM  +  3 
IHS  =  4 
IHT  =  3 


—  Full  downscatter;  no  upscatter; 
no  activation  cross  section 


and, 


IHM  =  IGM  +  5  +  NUS 
IHS  =  6  +  NUS 
IHT  =  4 


Full  downscatter;  NUS  upscatter; 
—  room  for  an  activation  cross 
section  in  position  1. 


Thus  the  parameters  IHT,  IHS,  and  IHM  completely  describe  the  format  of 
the  cross  sections.  If  there  are  no  activity  cross  sections,  IHT=3.  If 
there  is  no  upscatter  IHS  =  IHT  +1.  If  there  is  no  downscatter  IHM  = 
IHS  (i.e.  a  one  group  problem).  If  there  is  upscatter,  MORSE  will 
compute  a  total  upscatter  cross  section  for  each  group  of  each  material 
and  place  that  cross  section  in  position  IHM  +  1.  The  activity  cross 
sections  are  not  used  in  the  MORSE  code. 


6.5  MORSE  LEAKAGE  TAPE  OUTPUT  FILE  FOR  DRC 

Because  of  the  large  amount  of  core  storage  required  for  the  VISTA  free- 
field  fluences,  the  forward-adjoint  coupling  could  not  be  accomplished 
as  the  Monte  Carlo  calculation  was  performed.  The  coupling  involved  the 
calculation  of  the  integral 

R  =  /  $(P)$*(P);nn)dP 

over  the  coupling  surface  S. 

We  define 

$(P)  =  VISTA  free-field  fluences  in  phase  space  P. 

4'*(P)  =  MORSE  adjoint  fluence  in  phase  space  P. 

fln  =  cosine  of  angle  between  particle  direction  and 
inward  normal. 
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The  adjoint  fluence  at  the  Tj,  the  position  of  the  surface  S,  is  written 
on  a  leakage  tape  along  with  other  variables  necessary  for  coupling  the 
MORSE  results  with  the  VISTA  results  in  DRC.  The  variables  written  on 
tape  for  each  adjoint  leakage  are  as  follows: 


1. 

IG 

-  the  group  number. 

2. 

IGS 

-  the  source  t^roup. 

3. 

WTBC 

-  the  weight  of  the  adjoint  particle  at  leakage. 

4. 

U 

-  X  direction  cosine. 

5. 

V 

-  Y  direction  cosine. 

6. 

W 

-  Z  direction  cosine. 

7. 

Z 

-  height  of  leakage  point. 

8. 

IDET 

-  detector  type  in  which  particle  is  to  be  scored 

An  output  buffer  was  blocked  to  transfer  the  data  from  core  to  tape 
efficiently  at  the  end  of  each  batch.  This  permitted  batch  statistics 
to  be  calculated  in  the  DRC  code  which  reads  the  MORSE  leakage  tape  and 
the  VISTA  fluence  tape  and  performs  the  coupling.  The  leakage  tape 
generated  by  MORSE  contains  the  following  data: 


Record  1 
Record  2 
Record  3 

Record  4 

Record  5 
Record  6 


Record  N 


Title  and  date  of  MORSE  run 

Initial  Data  Record  -  24  words 

Energy  Group  Structure,  Velocities,  Source  Spectra 

and  Biasing  Function  -  4*NMTG  words 

Array  of  Number  of  Particles  Leaking  Per  Batch  - 

NITS+1  words 

Array  of  Source  Weights  Per  Batch  -  NITS+1  Words 
A  Block  of  Leakage  Information  for  125  Adjoint  Particles  - 
1000  words 

II  ti  n  If  II  II  N  It  fi  n  If  H  H  N  n  n  n  It  II  n  n  It  It  II  n  II  II 
ifititfifiHiinifiiifiiffiiiiititiifiiiiiiiifiiiiiiii 
n  II  If  II  11  It  H  II  n  n  n  If  ft  It  N  I  It  II  n  It  II  II  n  II  If  II 


A  detailed  description  of  the  contents  of  the  above  records  is 
given  below: 


1.  Record  1  -  A  40  character  title  plus  a  32  character  date  of  run 

II.  Record  2  -  The  USER  labeled  common  (plus  parameter  INGB)  is 
written  in  Record  2.  The  total  number  of  groups, 
number  of  batches,  etc.,  are  contained  in  this  record, 
as  defined  in  Table  6-7. 
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III.  Record  3  -  The  multigroup  energy  structure  and  group  velocities 
are  contained  in  Record  3.  The  data  are; 

E{1)  -  Upper  energy  limit  of  Group  1. 


E{NMTG)  -  Upper  energy  limit  of  Group  NMTG. 
VEL(l)  -  Velocity  of  Group  1. 


VEL{NMTG)  -  Velocity  of  Group  NMTG. 
F(l)  -  Fraction  of  Source  in  Group  1 


F(NMTG)  -  Fraction  of  Source  in  Group  NMTG 
B(l)  -  Biased  Fraction  in  Group  1 


B(NMTG)  -  Biased  Fraction  of  Source  in  Group  NMTG 


IV.  Record  4  -  The  number  of  particles  that  leak  per  batch  are  given 
in  Record  4.  This  data  is  necessary  in  order  to 
normalize  the  batch  results  per  source  neutron. 

L(l)  -  Number  of  leakage  particles  in  batch  1. 


L(NITS)  -  Number  of  leakage  particles  in  batch  NITS. 


L(NITS+I)  -  Total  number  of  leakage  records  written  on  tape. 


V.  Record  5  -  The  sum  of  the  source  weights  of  the  particles  in  a 
batch. 

ASORC(l)  -  Sum  of  weights  of  source  particles  in  batch  1. 
ASORC(NITS)  -  Sum  of  weights  of  source  particles  in  batch  NITS 


VI.  Record  6  -  The  adjoint  leakage  fluence  blocked  in  groups  of  125 
particles. 
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B(l) 

B(2) 

B(3) 

B(4) 

B(5) 

B(6) 

B(7) 

B(8) 


IG  Energy  Group 
IGS  Source  Group 
WTBC  Weight  at  leakage 
U  — I  direction 

V  —  cosines 
W  — I  at  leakage 

Z  Height  at  leakage 
IDET  Detector  Type 


—  Particle  1 


tt 


N 


—  Particle  2 


n 


n 


B(IOOO)  -  IDET  Detector  Type 

VII.  Additional  records  in  the  format  of  Record  6  to  a  total  of 
L(NITS+1)  leakage  records. 


6.6  LOGICAL  UNIT  REQUIREMENTS 


Below  is  a  listing  of  the  files  required  to  execute  a  MORSE  case  along  with 
the  default  values  used  in  the  code.  In  setting  up  a  MORSE  case,  efforts  must 


Cross  Section  Input  File  [Default=10] 

Cross  Section  Output  File  [Default=2] 

CG  Geometry  Scratch  Unit  [Default=16] 

MORSE  Adjoint  Leakage  Scratch  File  [Defau1t=23] 
MORSE  Adjoint  Leakage  File  [Default=24] 

Printed  Output  [Default=6] 

MORSE  Card  Input  File  [Default=5] 

GIFTS  Card  Input  File  [Default=8] 

GIFTS  Geometry  Scratch  Unit  [Default=9] 


be  made 

for  these  units  to  be 

1. 

Logical 

Unit 

IXTAPE 

2. 

Logical 

Unit 

JXTAPE 

3. 

Logical 

Unit 

FT16 

4. 

Logical 

Unit 

ISCU 

S. 

Logical 

Unit 

ICTU 

6. 

Logical 

Unit 

10 

7. 

Logical 

Unit 

11 

8. 

Logical 

Unit 

108 

9. 

Logical 

Unit 

109 

[NOTE:  Logical  Unit  FT16  is  not  used  with  the  GIFTS  Geometry  Package. 
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Table  6-7.  Definitions  of  Variables  in  USER  COMMON. 


Number 

Variable 

Definition 

1 

AGSTRT 

Initial  chronological  age  to  be  assigned  to  source 
particles 

2 

WTSTRT 

Initial  weight  to  be  assigned  to  source  particles 

3 

XSTRT 

Initial  x  position  to  be  assigned  to  source 
particles 

4 

YSTRT 

Initial  y  position  to  be  assigned  to  source 
particles 

5 

ZSTRT 

Initial  x  position  to  be  assigned  to  source 
particles 

6 

OFF 

Normalization  for  adjoint  problems 

7 

EBOTN 

Lower  energy  boundary  (eV)  of  last  neutron  group 
(group  NMGP) 

8 

EBOTG 

Lower  energy  boundary  (eV)  of  last  gamma-ray  group 
(group  NMTG) 

9 

TCUT 

Chronological  age  limit 

10 

10 

Logical  unit  for  output 

11 

11 

Logical  unit  for  input 

12 

lADJM 

Adjoint  switch  (>  0  for  adjoint  problem) 

13 

NGPQTl 

Problem-dependent  energy  group  limit 

14 

NGPQT2 

Problem-dependent  energy  group  limit 

15 

NGPQT3 

Problem-dependent  energy  group  limit 

16 

NGPQTG 

Group  number  of  lowest  energy  gamma- ray  group 
to  be  treated 

17 

NGPQTN 

Group  number  of  lowest  energy  neutron  group  to 
be  treated 

18 

NITS 

Number  of  batches  to  be  run 

19 

NLAST 

Last  cell  in  BLANK  COMMON  used  by  random  walk 
package 

20 

NLEFT 

Number  of  cells  in  BLANK  COMMON  available  to  user 

21 

NMGP 

Number  of  primary  energy  groups 

22 

NMTG 

Total  number  of  energy  groups 

23 

NSTRT 

Number  of  source  particles  for  each  batch 
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6.8  SAMPLE  PROBLEM 


The  sample  problem  demonstrates  the  adjoint  Monte  Carlo  analysis  of  the 
two-meter  box  experiments. The  two-meter  box,  i.e.,  "NATO  standard 
test  bed"  is  a  large  cubical  steel  walled  box  with  a  layer  of  5.08-cm- 
thick  steel  plates  mounted  on  the  top,  bottom,  and  all  four  sides.  The 
exterior  set  of  plates  yield  overall  outside  dimensions  for  the  box  of 
220.32  cm  x  220.32  cm  x  220.32  cm,  and  are  removable.  The  interior 
steel  box  has  outside  dimensions  210.16  cm  x  210.16  cm  x  210.16  cm  with 
each  wall  having  a  thickness  of  5.08  cm.  This  yields  an  interior  air 
space  with  dimensions  of  200  cm  x  200  cm  x  200  cm  and  thus  gives  the 
test  bed  the  common  name  -  "the  two-meter  box."  The  box  also  contains 
lift  tabs  (for  movement  by  crane),  drainage  holes  at  the  base,  a  cable 
access  hole  at  the  base  on  the  back  side  of  the  box,  and  two  hatches. 

The  hatches  are  located  in  the  center  of  the  top  and  back  faces  of  the 
box  and  the  hatch  diameters  in  the  interior  box  and  outside  plates  are 
staggered  to  mitigate  radiation  streaming  paths  into  the  box.  The 
hatches  are  included  for  loading  and  unloading  experimental  equipment, 
e.g.,  detectors,  phantoms,  etc.,  and  for  simulating  open-hatch  vehicle 
experiments.  An  isometric  view  of  the  two-meter  box  test  bed  is  shown 
in  Figure  6-1. 

A  complete  listing  of  the  input  cards  for  the  sample  problem  is  given  in 
Figure  6-2,  and  Figure  6-3,  and  some  selected  output  is  shown  in  Figure 
6-4.  Figure  6-2  represents  the  input  on  logical  unit  5  which  contains 
the  random  walk  input,  the  GIFTS  geometry  cards  (6A,  GH,  and  GI),  the 
cross-section  input,  and  the  special  MASH  input  for  output  to  DRC. 

Figure  6-3  illustrates  the  GIFTS  geometry  input  read  on  logical  unit  8 
for  the  Two-Meter  Box  for  geometry  Cards  GB,  GC,  GD,  GE,  and  GF).  In 
viewing  Figure  6-2,  the  input  illustrates;  the  descriptive  title  for  the 
MORSE  case,  1000  particle  per  batch  (NSTRT),  50  batches  (NITS),  and  a 
maximum  number  of  particles  to  be  stored  in  the  banks  of  1500  (NMOST) . 
Only  one  set  of  50  batches  was  to  be  run  (NQUIT).  The  energy  group 
numbers  being  analyzed  include  46  neutron  groups  (NGPQTN),  23  gamma 
groups  (NGPQTG),  46  primary  particle  groups  (NMGP),  and  69  total  groups 
(NMTG).  The  adjoint  mode  switch  was  set  to  one  (IADJM=1  always),  120 
minutes  of  CPU  time  was  allowed  (MAXTIM),  and  there  were  four  cross 
section  media  for  the  problem  (MEDIA). 

The  source  was  sampled  from  the  distribution  on  Cards  El  (IS0UR=0,  and 
NGPFS=69).  Also,  the  input  source  energy  spectrum  was  biased  (ISBIAS=1) 
and  the  biasing  parameters  were  read  from  Cards  E2.  Each  starting 
particle  had  an  initial  weight  of  1.0  (WTSTRT),  and  was  initiated  from 
the  X,  Y,  Z  position  corresponding  to  (0.0,  0.0,  110.16  cm)  in  the 
geometry.  Since  UINP,  VINP,  and  WINP  were  all  zero,  the  source  was 
assumed  to  be  isotropic.  The  energy  group  boundaries  are  read  from 
Cards  FI.  Card  G  was  omitted  because  no  collision  tape  was  requested 
(NCOLTP  =  0  on  Card  B).  After  the  energy  group  boundaries,  the  starting 
random  number  seed  is  input  (Card  H). 

The  next  input  card  (Card  I)  indicates  the  splitting  and  Russian 
roulette  are  to  be  used  (NSPLT  and  NKILL  -  1)  on  four  importance  regions 
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(MXREG»4)  for  all  69  energy  groups  {MAXGP=69).  Furthermore,  in-group 
energy  biasing  is  turned  on  (INGB«1). 

Four  Card  J's  are  input,  one  for  each  importance  region,  to  give  the 
weight  standards  for  the  splitting  and  Russian  roulette.  MXREG  could 
have  been  defined  as  3  since  the  second  and  third  Card  J  are  identical. 
Then  the  second  three  parameters  (NRGl,  NDRG,  NRG2)  on  the  second  Card  J 
would  have  read  (2  13).  This  input  is  terminated  by  the  -1  for  NGPl 
on  the  last  Card  J. 

Card  K  is  omitted  because  lEBIAS  was  equal  to  zero.  All  parameters  on 
Card  L  are  zero  for  this  problem  and  consequently.  Card  M  and  Card  N  are 
not  required.  Card  0  is  input  four  times,  one  for  each  importance 
region  (MXREG  on  Card  I).  In  this  example,  a  GWLO  parameter  was  set  to 
1.0  for  all  regions  and  all  groups.  This  has  proven  to  be  the  most 
efficient  use  of  this  parameter  with  in-group  biasing  turned  on. 

The  GIFTS  program  control  card  (Card  GA)  is  next  in  the  input  stream, 

with  the  first  10  control  parameters  set  to  zero,  the  tolerances  set  to 

1.0  and  the  final  three  parameters  set  to  zero.  If  the  last  three 
parameters  are  set  to  zero,  GIFTS  will  use  the  defaults. 

This  input  is  followed  by  the  geometry  region  material  specifications 
cards  (Cards  GH)  and  importance  region  assignments  card  (Cards  GI).  The 
other  GIFTS  geometry  input  is  read  from  logical  unit  8  and  is  presented 
in  Figure  6-3.  There  are  five  sets  of  material  region  specification 
cards,  four  for  the  four  different  cross  section  materials,  and  one  for 
the  external  void  (MED=0).  Even  though  there  are  four  importance 
regions  specified  on  Card  I,  only  one  region  was  used  in  the  calculation 

since  the  Card  GI  parameters  are  all  ones.  There  are  24  entries  on  the 

Cards  GI  corresponding  to  the  number  of  regions  in  the  GIFTS  geometry. 

The  next  section  of  input  is  the  cross  section  Cards  XA  through  XG.  The 
energy  group  parameters  (on  Card  XB)  match  the  parameters  read  in  Card 
B.  There  are  four  cross  section  media  (NMED),  24  elements  (NELEM)  to  be 
read  in  from  logical  unit  10  (IXTAPE),  41  mixing  operations  (NMIX)  to  be 
performed  and  an  output  file  written  to  logical  unit  2  (JXTAPE).  The 
cross  section  set  was  P5,  (NCOEF-6),  and  the  number  of  discrete  angles 
was  3  (NSCAT=NC0EF/2) .  All  of  the  cross-section  print  triggers  on  Card 
XC  are  turned  off.  The  element  identifiers  (all  Pj  components)  are 
entered  on  the  Cards  XD.  There  are  144  entries  on  these  cards  (NCOEF 
times  NELEM).  Card  XE  is  omitted  since  the  input  ANISN  library  is  on 
unit  IXTAPE.  The  next  41  cards  correspond  to  the  mixing  table  on  Card 
XF.  The  four  different  materials  are  constructed  on  these  cards. 

Finally,  the  input  in  Figure  6-2  shows  the  special  MASH  input  for  use 
with  DRC.  This  includes  the  short  title  card  (40  characters)  on  Card 
AA,  the  importance  region  density  factors  (all  1.0  in  this  problem)  on 
Card  BB,  and  the  air  and  ground  identifiers  (3  and  1,  respectively)  on 
Card  CC. 
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Figure  6-3  illustrates  the  five  GIFTS  geometry  input  Cards  GB  through  GF 
read  in  on  logical  unit  8.  The  title  card  indicates  units  of 
centimeters  and  the  target.  The  second  card  indicates  49  solids  in  the 
solid  table,  and  24  regions  in  the  region  table.  The  49  solids  follow 
(Cards  GO)  and  then  the  24  regions  (Cards  GE)  Note  the  "-1"  card  to  end 
the  region  table.  Finally,  the  input  shows  the  region  identification 
table  (24  cards,  one  for  each  region)  The  only  information  used  from 
this  card  is  the  first  column. 

The  coupling  surface  used  in  the  MORSE  sample  calculation  to  tabulate 
the  adjoint  leakage  current  was  a  RPP  centered  about  the  box  (solid  1  in 
the  solid  table).  Other  coupling  surfaces  such  as  a  sphere,  right 
circular  cylinder,  etc.,  could  be  used  also.  The  only  assumption  is 
that  the  VISTA  free-field  fluence  at  a  given  height  does  not  vary 
between  X-Y  positions  in  the  vehicle  coordinate  system.  In  order  to 
include  the  particle  leakage  from  the  top  and  bottom  of  the  vehicle,  the 
RPP  extended  from  below  the  air-ground  interface  to  several  centimeters 
above  the  top  surface  of  the  vehicle.  The  coupling  surface  is  always 
the  exterior  boundary  of  the  Monte  Carlo  geometry,  i.e.  where  the 
particle  enters  the  external  void.  Adjoint  particles  that  cross  this 
surface  are  terminated  and  recorded  on  the  history  data  set. 

The  selected  MORSE  output  shown  in  Figure  6-4  first  illustrates  the 
input  parameters  read  in  the  first  four  input  data  cards  from  logical 
unit  5,  followed  by  tables  of  the  input  source  spectrum  and  biasing 
parameters  (Cards  El  and  E2  and  the  input  energy  group  boundaries  (Cards 
F)  This  is  followed  by  the  splitting  and  Russian  roulette  parameters 
for  the  different  importance  regions  (Cards  I  and  J)  and  the  secondary 
production  parameters  by  energy  group  for  the  importance  regions  (Cards 
0).  The  next  sections  of  input  are  from  the  GIFTS  geometry  package  and 
give  detailed  edits  of  the  geometry  input  data  on  logical  unit  8.  This 
print  can  be  suppressed  by  setting  the  NOPRNT  switch  on  Card  GA  to  one. 
The  geometry  input  array  edits  are  followed  by  a  storage  summary  for  the 
geometry  data,  and  then  edits  of  the  material  region  and  importance 
region  specification  cards  (Cards  GH  and  GI). 

The  output  in  Figure  6-4  then  edits  the  processing  of  the  cross  section 
input  on  Cards  XA  through  XG.  On  this  sample  problem,  this  information 
is  suppressed.  Large  amounts  of  printout  can  be  generated  if  the  user 
is  not  careful  with  the  print  triggers  on  Card  XC.  It  should  be  noted 
that  the  output  shows  a  table  of  parameters  that  are  read  from  tape  and 
that  the  IXTAPE  parameter  in  the  "input/output  options"  table  is  set  to 
-2.  The  input  in  Figure  6-2  illustrates  the  input  the  first  time  the 
sample  problem  was  executed.  This  output  reflects  that  the  cross- 
section  set  generated  in  that  run  was  saved  and  input  for  this  case. 

The  input  illustrates  what  is  required  for  an  initial  case.  Once  that 
case  is  run,  and  the  cross-section  set  is  saved  for  future  use,  only 
Cards  XA,  XB,  and  XC  are  required  for  the  cross  section  input.  Then  the 
output  would  reflect  what  is  being  shown  in  the  sample  problem. 

The  cross  section  edits  are  followed  by  a  statement  informing  the  user 
of  the  last  location  used  in  blank  common.  This  is  an  indication  of  how 


6-54 


much  core  space  the  problem  required  based  on  the  input  received  from 
the  user.  The  normalized  COP  for  the  adjoint  source  sampling  is  printed 
next,  followed  by  the  adjoint  group  structure.  The  next  section  of 
printout  illustrates  the  actual  random  walk  (by  batch).  Each  batch  will 
give  the  starting  random  number  for  the  batch,  the  average  source 
particles  starting  parameters,  the  time  required  to  execute  the  batch, 
and  a  sequence  of  counters  for  the  batch  which  correspond  to  the  13 
positive  arguments  for  subroutine  BANKR  illustrated  in  Table  6-1  of 
Section  6.2.1  of  this  report.  This  information  is  useful  in  determining 
how  well  the  user  has  set  the  problem  up.  Unfortunately,  the  best 
teacher  in  properly  interpreting  these  counters  is  experience.  The 
output  also  indicates  several  calls  to  subroutine  RAYCHK,  indicating  an 
undefined  region(s)  in  the  geometry.  This  sequence  of  output  is  ended 
by  the  total  time  required  to  process  all  NITS  batches. 

The  last  section  of  output  comes  from  the  analysis  routines  which 
summarize  the  events  that  occurred  in  the  random  walk  process  for  the 
entire  run.  The  first  table  is  a  summary  table  of  the  particle  deaths, 
labeled  "neutron  deaths"  followed  by  a  table  of  scatterings  by  medium. 
The  next  several  pages  of  output  are  different  counters  (by  importance 
region  and  group)  for  the  entire  random  walk.  These  tables  include  the 
real  scattering  counters,  track  length  counters,  secondary  production 
counters,  number  of  splittings,  number  of  upscatter  splittings,  number 
of  Russian  roulette  kills,  and  the  number  of  Russian  roulette  survivals. 
Unfortunately,  like  the  batch  sumnary  counters,  only  experience  will 
increase  the  users  full  understanding  and  interpretation  of  all  these 
arrays.  The  last  output  line  informs  the  user  of  the  total  amount  of 
CPU  required  to  run  the  problem. 
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Figure  6-1.  Schematic  Diagram  of  the  Two-Meter  Box 
Geometry  Model  Used  in  the  MORSE  Analysis. 
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Figure  6-2.  Sample  MORSE  Input  for  the  Two-Meter  Box  Analysis. 
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Figure  6-2.  (continued) 
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Figure  6-3.  Sample  GIFTS  Input  for  the  Two-Meter  Box  Analysis. 
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Figure  6-3.  (continued) 
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Figure  6-4.  Sample  MORSE  Output  for  the  Two-Meter  Box  Analysis. 
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Figure  6-4.  (continue 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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Figure  6-4.  (continued) 
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7.0  DRC:  A  DETECTOR  RESPONSE  CODE* 


7.1  INTRODUCTION  TO  DRC 


7.1.1  Background 

The  Detector  Response  Code  (DRC)  in  the  MASH  code  system  is  used  to 
couple  the  MORSE'  Monte  Carlo  adjoint  leakage  information  with  the  DORT^ 
free-field  fluences  to  compute  the  estimates  of  the  fluences  and  doses 
within  the  vehicle  interior.  Furthermore,  DRC  utilizes  the  free-field 
fluences  and  estimates  from  the  in-vehicle  fluences  (and  doses)  to 
calculate  neutron  protection  factors  and  reduction  factors  for  the 
vehicle. 

The  DRC  code  in  MASH  has  undergone  several  modifications  from  its 
predecessor  in  the  Vehicle  Code  System  (VCS)^*^.  The  current  version  of 
DRC  contains  the  newest  SAMBO  analysis  routines  from  the  MORSE  code 
system.  The  main  difference  between  this  and  previous  SAMBO  versions  is 
that  input  data  is  free- form  and  subroutine  ENRGYS  defines  an  array, 
lARR,  which  is  a  key  to  the  correspondence  between  the  DRC  analysis 
group  number  and  the  MORSE  random  walk  group  number  for  use  by 
subroutine  FLUXST  when  scoring  group-dependent  data.  This  eliminated 
the  requirement  in  the  old  VCS-DRC  of  having  the  DORT  free-field 
fluences  and  MORSE  adjoint  leakages  calculated  in  the  same  group 
structure.  Furthermore,  with  the  development  of  the  new  69  group 
(46n-237)  cross  section  set,  it  was  advantageous  to  modify  DRC  to  couple 
MORSE  adjoint  leakage  calculations  in  69  energy  groups  with  previously 
calculated  DORT  free-field  data  in  the  old  58  group  (37n-2l7)  group 
structure. 

In  the  current  version  of  DRC,  the  routines  that  are  unique  to  DRC  have 
been  rewritten  with  the  following  characteristics: 


1.  All  arrays  are  now  variably  dimensioned.  This  required  the 
addition  of  several  arrays  of  data  to  BLANK  COMMON. 

2.  All  logical  unit  numbers  are  variables  within  the  coding, 
however,  the  programming  pre-assigns  particular  numbers  to 
each  unit. 

3.  The  common  structure  is  revised,  having  fewer  coiranons  with  more 
variables  in  each.  Two  labeled  commons,  TDTl  and  IDRC,  contain 
all  the  necessary  variables. 


'Original  documentation  for  the  DRC  program  is  found  in  the  following 
reference:  W.  A.  Rhoades,  M.  B.  Emmett,  G.  W.  Morrison,  J.  V.  Pace,  III, 
and  L.  M.  Petrie,  "Vehicle  Code  System  (VCS)  User's  Manual,"  ORNL-TM-4648, 
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Oak  Ridge  National  Laboratory,  (August  1974). 

4.  Use  of  only  one  radial  (r)-bin  is  now  allowed.  Linear 
interpolation  of  the  DORT  fluences  in  the  axial  (z)  direction 
is  used  based  on  adjacent  z-bins.  Several  errors  in  choosing 
bins  for  coupling  surfaces,  discovered  in  the  old  VCS-DRC,  have 
been  corrected. 

5.  Tapes  produced  with  the  new  VISTA  format  are  used.  However, 
the  programming  logic  is  still  included  to  read  the  old  VISA 
tape  formats. 

6.  A  new  MORSE  collision  tape  format  is  used.  However,  it  may  be 
disabled  to  allow  reading  the  previous  format. 

7.  A  new  feature  (mentioned  above)  is  the  ability  to  couple  VISTA 
results  from  one  group  structure  with  MORSE  results  from  a 
different  group  structure.  This  was  added  because  there  are 
VISTA  results  from  the  old  37n-2l7  group  structure  which  will 
need  to  be  coupled  with  the  new  46n-237  group  structure  which 
MORSE  runs  will  begin  using.  The  method  used  is  to  bring  all 
VISTA  data  to  the  MORSE  structure  at  the  start  of  the  DRC 
analysis.  This  feature  requires  the  energy  structure  for 
VISTA;  and  since  it  is  not  present  on  the  VISTA  file,  it  was 
added  to  the  DRC  inpul  data. 


7.1.2  Method  Used 

The  general  structure  of  the  MASH  code  system  illustrated  in  Section  1.0 
of  this  report  shows  all  data  relevant  to  the  calculation  of  the  vehicle 
protection  and  reduction  factors  as  input  to  the  DRC  module.  In 
particular,  the  GRTUNCL/DORT  air-over-ground  analysis  of  the  radiation 
environment  is  passed  through  VISTA  for  renormalization  and  reformatting 
for  use  in  DRC  in  calculating  the  free-field  fluences  and  doses  and  for 
folding  with  the  adjoint  leakage  information  from  MORSE  to  calculate  the 
in-vehicle  fluences  and  doses  along  with  the  vehicle  protection  and 
reduction  factors  as  a  function  of  range  and  vehicle  orientation 
relative  to  the  source.  A  special  feature  of  MASH  is  that  the  MORSE 
adjoint  leakage  information  contains  both  the  leaking  particle's 
starting  energy  (source  energy)  and  final  energy  (leaking  energy).  This 
allows  DRC  to  calculate  an  energy  fluence  inside  of  the  vehicle  which 
can  then  be  folded  with  any  input  dose  response  function  such  as  a 
detector  response  function  or  a  tissue  dose  response  function. 
Consequently,  one  MORSE  calculation  can  be  used  to  analyze  several 
different  possible  dose  responses  and/or  several  different  radiation 
environments  (GRTUNCL/DORT  calculations).  The  basic  equation  used  by 
MASH  to  calculate  the  dose  inside  of  a  vehicle  is  given  in  Equation  1.^ 
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(1) 


>'  =  5a  L,  ^ 

IG 


where  A  is  the  dose, 

X  is  the  space  variable  which  is  integrated  over  a  closed 
surface  A, 

Q  is  the  angle  variable  which  is  integrated  over  4ir  steradians, 
IG  is  an  energy  group  index  summed  over  all  the  energy 
groups  in  the  transport  problem, 

is  the  forward  fluence  calculated  by  the  GRTUNCL/DORT  codes, 
is  the  adjoint  fluence  calculated  by  the  MORSE  code,  and 
n  is  the  unit  vector  normal  to  the  area  element  A. 

To  derive  the  actual  equations  used  by  DRC,  it  is  necessary  to  consider 
that  the  adjoint  fluence  as  calculated  by  adjoint  Monte  Carlo  is 
approximated  by  Equation  2. 


,  Nig 


where  N  is  the  total  number  of  particles  in  the  adjoint 
calculation, 

Niq  is  the  total  number  of  particles  that  leak  out  of  the 
calculation  with  energy  group  IG, 
i^  indicates  a  leaking  particle, 

W*ic,i  is  the  weight  of  the  i***  adjoint  particle  that  leaks 
with  energy  group  16, 

Xj  is  the  position  of  the  i*’’  particle  when  it  leaks, 
n,  is  the  direction  of  the  i***  particle  when  it  leaks,  and 
S  is  the  Dirac  delta  function. 

Therefore,  Equation  2  approximates  the  adjoint  fluence  as  a  summation  of 
Dirac  delta  functions  {«)  over  the  weights.  The  factor  of  l/(QjnJ 
converts  a  leakage  current  into  a  leakage  fluence.  Equation  2  can  be 
substituted  into  Equation  1,  resulting  in  Equation  3. 


^  E  (3) 

i=l 
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Here,  the  dose  Is  calculated  by  a  sum  over  the  products  of  the  weights 
of  leakage  particles  and  the  angular  fluences  at  the  location  and 
direction  of  the  leaking  particles.  One  of  the  advantages  of  DRC  is  the 
simplicity  of  Equation  3.  In  this  equation,  the  DORT  angular  fluence  is 
differential  in  angle  as  calculated  in  DORT  per  unit  weight  and  the  W* 

Is  the  actual  particle  leakage  weight  calculated  by  MORSE.  In  reality, 
DRC  uses  a  slightly  more  complicated  form  of  this  equation  as  shown  in 
Equation  4. 


N 


^Ycs  = 


N-S 


IGS 


(4) 


1=1 


where  IGS  corresponds  to  the  source  energy  of  an  adjoint  particle 
which  is  also  scored  on  the  MORSE  particle  leakage  tape, 
$''iGs  is  the  energy  spectrum  calculated  by  DRC  inside  the 
vehicle,  and 

S*ios  is  the  energy  spectrum  sampled  when  performing  the 
MORSE  adjoint  calculation. 

Equation  4  then  uses  the  particle  leaking  group,  IG,  and  source  energy, 
IGS,  to  transform  Equation  3  into  an  equation  for  the  energy  spectrum 
inside  of  the  vehicle.  The  dose  inside  of  the  vehicle  is  then 
calculated  by  Equation  5  which  folds  the  Internal  energy  spectrum  with  a 
response  function  of  interest. 


^  Rigs 

IGS 


(5) 


The  solutions  of  Equations  4  and  5  can  be  seen  in  the  FOLD  and  FLUXST 
subroutines  within  the  programming  of  DRC. 

An  additional  quantity  that  is  calculated  by  DRC  is  the  free-field  dose 
which  is  used  to  calculate  the  vehicle  protection  factors  and  reduction 
factors.  The  free-field  dose  Is  calculated  from  the  DORT  angular 
fluences  by  a  different  equation  as  shown  in  Equation  6. 


^//(^)  51  (6) 

IG 


where  Xff{x)  is  the  free  field  dose  at  a  point  x  which  Is  calculated 
by  summing  a  dose  response  over  the  scalar  fluence  at 
that  point. 
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This  Is  implemented  In  the  code  as  shown  In  Equation  7  where  the  angular 
Integration  Is  replaced  by  a  summation  over  all  the  DORT  angle  points. 


NANG 

^//(?)  =  E  E  iv 

IG  K 


where  Is  the  angular  quadrature  weight, 

K  Indicates  an  angle  direction,  and 
NANG  Is  the  number  of  directions. 

Equation  7  Is  performed  In  Subroutine  FREDOS  In  the  DRC  code  and  Is 
subsequently  used  to  calculate  protection  and  reduction  factors. 

The  radiation  transport  coupling  method  employed  in  DRC  allows  for  any 
complicated  Monte  Carlo  geometry  Inside  the  coupling  surface  to  be 
modeled  In  three  dimensional  detail.  The  two-dimensional  GRTUNCL/DORT 
discrete  ordinates  air-over-ground  environment  is  defined  by  an  r-z 
coordinate  system,  where  the  radial  axis  r  coincides  with  the  x  axis  and 
is  perpendicular  to  the  y  axis.  The  three  dimensional  Monte  Carlo 
geometry  system  is  completely  contained  within  a  cylindrical  volume 
element  defined  by  the  maximum  and  minimum  values  chosen  from  the  radial 
and  axial  mesh  in  VISTA.  The  coupling  between  the  two  systems  occurs  at 

the  outer  leakage  surface  of  the  Monte  Carlo  geometry  within  the 

cylindrical  volume  element.  This  coupling  requires  the  Monte  Carlo 
coordinate  system  to  be  rotated  to  align  the  x,y,z  axes  parallel  to  and 

in  the  same  sense  of  the  x,y,z  axes  of  the  GRTUNCL/DORT  discrete 

ordinates  system.  When  the  adjoint  Monte  Carlo  particle  escapes  its 
geometry  system  at  a  given  point  and  in  a  given  direction  defined  by  its 
coordinate  system,  the  coordinates,  direction,  and  energy  group  can  be 
converted  to  the  discrete  ordinates  system  so  that  the  appropriate 
forward  fluence  can  be  determined  in  the  evaluation  of  Equation  1.  A 
full  Euleri an  rotation  matrix  is  incorporated  in  DRC  to  allow  for  the 
alignment/rotation  of  the  Monte  Carlo  geometry  system  within  the 
discrete  ordinates  system.  As  presently  configured,  MASH  allows  for  the 
rotation  of  the  Monte  Carlo  geometry  system  in  the  x-y  plane,  i.e., 

rotation  about  the  z  axis.  Future  versions  of  MASH  may  allow  full 

rotational  capability.  For  additional  information,  a  detailed 
derivation  and  description  of  radiation  transport  coupling  methods  can 
be  found  in  Reference  6. 

In  order  to  calculate  the  protection  and  reduction  factors,  the  MORSE 
adjoint  leakage  tape  includes  a  parameter,  IDET,  which  identifies  the 
detector  type  in  DRC  in  which  a  leaking  particle  is  to  be  scored.  Table 
7-1  identifies  the  seven  detector  types  utilized  in  DRC.  The  first  four 

detector  types  are  utilized  on  the  MORSE  adjoint  leakage  tape  for 

scoring  purposes.  The  last  three  detector  types  in  Table  7-1,  along 
with  the  free-field  neutron,  gamma  ray,  and  total  fluences  and/or  doses, 
are  used  in  DRC  to  calculate  the  protection  and  reduction  factors 
defined  in  Table  7-2. 
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In  Table  7-2,  the  difference  between  the  "protection  factors"  and  " 
reduction  factors"  is  the  scoring  of  the  vehicle  produced  secondary 
ganvna  dose  (IDET-2  in  MORSE  or  Detector  2  in  Table  7-1).  The  neutron 
and  gamma  "protection  factors"  are  a  measure  of  how  much  the  vehicle 
shielding  reduces  the  dose  from  free-field  neutrons  and  gammas, 
respectively,  and  is  a  useful  parameter  in  engagement  analysis.  The 
"reductions  factors,"  however,  are  a  measure  of  how  much  the  vehicle 
shielding  alters  the  neutron  or  gamma  dose  as  measured  by  a  neutron  or 
gamma  sensitive  detector.  While  the  "protection  factors"  are  most 
useful  for  engagement  analyses,  the  "reduction  factors"  are  most  useful 
for  comparing  calculated  results  with  experimental  measurements. 


Table  7-1.  Detector  Response  Definitions  in  DRC. 


Detector  Response  Definition 


1 

2 


3 


4 


5 


Direct  neutron  -  a  neutron  entering  the  vehicle  and 
contributing  a  neutron  dose. 


Capture  gamma  rays  from  vehicle  -  a  gamma  ray  resulting  from 
a  neutron  entering  the  vehicle  and  contributing  a  secondary 
gamma- ray  dose. 


Capture  gamma  rays  from  ground  -  a  gamma  ray  resulting  from 
a  neutron  entering  the  ground  without  passing  through  the 
vehicle  and  generating  a  secondary  gamma- ray  dose  from  a 
ground  interaction.  (This  dose  is  already  included  in  the 
upward-directed  gamma  rays  that  enter  the  vehicle.  This 
generally  is  negligible.) 

Direct  gamma  rays  -  a  gamma  ray  entering  the  vehicle  and 
contributing  a  gamma-ray  dose.  This  source  of  gamma  rays 
includes  both  gamma  rays  originating  from  the  source,  and 
capture  gamma  rays  from  the  air. 

Total  gamma-ray  dose  -  Sum  of  detectors  2,  3,  and  4. 


6 

7 


Gamma-ray  dose  from  gamma  rays  entering  the  vehicle  (usually 
dominated  by  direct  gamma  rays)  -  Sum  of  detectors  3  and  4. 


Neutron  and  gamma-ray  dose  from  neutrons  incident  on  the 
vehicle  -  Sum  of  detectors  1  and  2. 
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Table  7-2.  Definitions  of  Parameters  and 
Protection  Factors  used  to  Characterize 
the  Effectiveness  of  Shields. 


Parameter 

Response  Definition 

FFN 

Free-Field  Neutron  Response 

FFG 

Free-Field  Gamma  Response 

NPF 

Neutron  Protection  Factor 
NPF  =  FFN  /  Det.  7 

GPF 

Gamma  Protection  Factor 
GPF  »  FFG  /Det.  6 

TPF 

Total  Protection  Factor 
TPF  -  (FFN+FFG)/(Det.  7  + 

Det.  6) 

NRF 

Neutron  Reduction  Factor 
NRF  -  FFN  /Det.  1 

GRF 

Gamma  Reduction  Factor 

GRF  -  FFG  /Det.  5 

TRF 

Total  Reduction  Factor 

TRF  =  (FFN+FFG)/(Det.  1  + 

Det.  5) 

7.2  DRC  INPUT  REQUIREMENTS 

The  following  input  cards  are  required  to  execute  DRC.  Default  values 
are  in  brackets  ([]). 


Card  A  Job  Title  Card  [18A4] 

TITLE  72  alphanumeric  character  description 
Card  B  Job  control  parameters  [Begin  array  with  "**"] 

RAD  radius  of  position  of  vehicle 

AZERO  z-position  of  the  MORSE  coordinate  origin  in  the  DORT 
coordinate  system.  Equivalent  to  ZDORT  (Ground-Air 
interface)  minus  ZMORSE  (Ground-Air  Interface) 

ZBOT  lowest  z  position  in  MORSE  where  particles  may  leak 
from  system 
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ZTOP  highest  z  position  in  MORSE  where  particles  may  leak 
from  system 

ALPHA  rotation  of  vehicle  x-axis  counterclockwise  from 
DORT  r-axis 


HGT  detector  z  coordinate  in  NORSE  coordinate  system 

IPRT  print  control  output  flag 

=  0  implies  print  vehicle  doses  and  fluences 
=  1  implies  print  free  field  doses  and  fluences 

-  2  implies  print  both  vehicle  and  free  field  doses 

and  fluences 

WATMX  maximum  weight  allowed  on  MORSE  leakage  tape 

Card  C  (ICA(I),I-1,NMTG)  [Begin  array  with  "$$"] 

ICA  Integer  array  giving  correspondence  between  group 
structures  in  VISTA  and  MORSE.  0  <  ICA  <  NOG. 

Card  D  NNEUT,  NGAM  [Begin  array  with  "$$"] 

NNEUT  group  number  of  lowest  neutron  energy  group  in  VISTA 

NGAM  group  number  of  lowest  gamma  energy  group  in  VISTA 

Card  E  (VE(I),I*l,N0G+2)  [Begin  array  with  "**"] 

VE  VISTA  energy  group  boundaries  in  descending 

magnitude,  i.e.,  neutron  energies  including  bottom 
energy  of  lowest  neutron  group  followed  by  gamma 
energies  including  bottom  energy  of  lowest  gamma 
group 


NOTE:  Input  Cards  C,  D,  and  E  are  optional.  They  are 
required  only  if  the  VISTA  and  MORSE  energy  group 
structures  do  not  coincide. 


Card  F  alphanumeric  title  information  [20A4] 

Card  6  title  or  units  for  total  responses 
for  all  detectors  [20A4] 

Card  H  title  or  units  for  each  total  response  [20A4] 

Card  I  (RESP(I),I=1,NMTG)  [Begin  array  with  "**"] 

RESP  response  function  values  in  order  of 
decreasing  energy  [20A4] 

Card  J  units  for  energy  dependent  fluence  [20A4] 
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7.3  DRC  INPUT  DATA  NOTES 


Except  for  the  title  cards,  all  data  are  read  using  the  MORSE  FIDO  input 
system.  A  detailed  description  of  the  FIDO  input  system  (in  general)  is 
given  in  Appendix  A.  In  MORSE  FIDO,  the  array  indicators  "**"  or  "$$" 
must  be  entered  in  columns  2  and  3.  In  MORSE  FIDO,  data  arrays  are 
still  entered  in  blocks,  but  the  blocks  are  not  terminated  by  a  "T". 
Unused  data  arrays  are  not  entered  and  careful  attention  must  be  paid  to 
the  order  of  each  array,  the  size  of  each  array,  and  the  requirements 
for  entering  (or  not  entering  the  array). 

Multiple  cases  can  be  executed  for  different  vehicle  orientations  (input 
parameter  ALPHA  on  Card  B)  by  stacking  pairs  of  Cards  A  and  B  for  each 
additional  vehicle  orientation  after  the  first  case.  The  Cards  C 
through  J  need  not  be  repeated  after  the  first  case.  If  this  option  is 
chosen,  it  is  suggested  the  user  set  IPRT=0  to  eliminate  multiple 
printouts  of  the  free-field  information. 

RAD  The  radius  corresponding  to  the  position  of  the  vehicle  must  match 
the  radius  (or  one  of  the  radii)  on  the  VISTA  fluence  tape.  An  error 
message  will  be  printed  if  this  condition  is  not  met. 

AZERO  This  parameter  allows  for  the  case  when  the  air-ground  interface 
in  the  DORT  calculation  does  not  match  the  air-ground  interface  in  the 
MORSE  calculation.  Typically,  the  DORT  calculation  will  place  the  air- 
ground  interface  at  z«0.  The  vehicle  geometries  analyzed,  typically 
place  the  turret-track  interface  at  z»0  and  the  air-ground  interface  at 
some  value  less  than  zero.  Consequently,  the  user  can  make  the  two  air- 
ground  interfaces  match  through  the  parameter  AZERO. 

ZBOT  and  ZTOP  These  two  parameters  must  be  within  the  VISTA  axial 
boundaries  read  by  DRC.  The  ZBOT  and  ZTOP  boundaries  represent  the 
minimum  and  maximum  values  a  leaking  particle  from  the  adjoint  MORSE 
calculation  will  have.  To  fold  these  particles  with  the  forward  DORT 
fluences,  the  DORT  axial  mesh  must  encompass  the  MORSE  axial  mesh.  In 
other  words,  the  maximum  z  boundary  written  on  the  VISTA  file  must  be 
greater  than  ZTOP  and  the  minimum  z  boundary  on  the  VISTA  file  must  be 
less  than  ZBOT. 

ALPHA  This  parameter  allows  for  different  vehicle  (or  target) 
orientations  relative  to  the  source.  The  parameter  is  given  in  units  of 
degrees  and  is  specified  for  the  rotation  of  the  MORSE  positive  x-axis 
counterclockwise  (as  viewed  from  above)  from  the  DORT  positive  r-axis. 
For  example,  a  typical  vehicle  geometry  in  MORSE  has  the  positive  x-axis 
facing  forward  on  the  vehicle  i.e.,  in  the  direction  of  the  gun  barrel 
for  a  tank.  If  the  user  wished  to  determine  the  protection  factor  for 
the  tank  facing  the  source,  ALPHA  would  have  to  be  set  to  180,  the 
degrees  rotation  of  the  positive  x-axis  in  MORSE  with  the  positive  r- 
axis  in  DORT.  A  value  of  0  for  ALPHA  would  orient  the  tank  with  the 
rear  facing  the  source.  Care  must  be  taken  when  determining  the  target 
rotation. 
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HGT  This  parameter  must  correspond  to  the  detector  z  position  specified 
on  Card  D  in  the  MORSE  input. 

IPRT  This  parameter  controls  the  amount  of  print  from  a  DRC  case.  If 
IPRT-0,  only  information  on  the  vehicle  fluences  and  doses  are  printed. 
This  is  the  recommended  option  for  additional  stacked  cases  for  more 
target  orientations.  If  IPRT-1,  only  the  free  field  fluences  and  doses 
are  printed.  For  single  DRC  cases,  IPRT-2  is  recommended  because  the 
user  will  obtain  both  free-field  and  target  fluence  and  dose 
information. 

UATNX  This  parameter  was  used  to  set  the  maximum  weight  allowed  for  an 
adjoint  leaking  particle.  With  the  use  of  in-group  biasing,  this 
parameter  is  obsolete  and  a  value  of  zero  will  set  the  default  value  of 
50. 


Cards  C,  D,  and  E  These  cards  are  input  if  the  VISTA  and  MORSE  energy 
group  structures  do  not  coincide.  This  option  is  only  valid  for  cases 
where  the  VISTA  energy  group  structure  is  a  subset  of  the  MORSE  energy 
group  structure.  This  option  was  included  in  DRC  to  allow  for  coupling 
of  new  MORSE  adjoint  leakage  tapes  in  69  energy  groups  {46n-237)  and  old 
DORT  free-field  fluence  files  in  58  energy  groups  (37n-2l7).  Coupling 
of  arbitrary  group  structures  in  DRC  is  not  operational.  ICA(I)“0  when 
there  is  no  corresponding  data  in  VISTA  for  2  cases:  (1)  When  the  MORSE 
group  structure  has  energy  bins  below  the  bottom  group  of  VISTA  or  (2) 
when  the  MORSE  structure  has  one  or  more  energy  bins  at  higher  energy 
than  VISTA.  For  example,  if  VISTA's  highest  energy  bin  is  from  14  to  12 
MeV  and  MORSE'S  is  from  20  to  14  MeV,  ICA(l)-0.  If  VISTA  has  data  down 
to  1  MeV  and  MORSE  to  0.1  MeV,  then  the  ICA  of  any  groups  below  1  MeV  is 
0. 


RESP  The  response  function  is  entered  in  order  of  decreasing  energy  and 
with  the  neutron  response  preceding  the  gamma-ray  response. 


7.3.1  Common  Block  Information 

The  input  information  for  DRC  is  processed  into  several  common  block 
areas  for  use  throughout  the  code.  The  common  block  structure  was 
revised  for  the  current  version  of  DRC  resulting  in  fewer  commons  with 
more  variables  in  each.  The  three  main  commons  used  in  DRC  are  BLANK 
COMMON,  common  TDTl,  and  common  lORC.  The  variables  and  structures  of 
these  three  common  blocks  are  defined  in  Tables  7-3,  7-4,  and  7-5. 


7.4  DRC  INPUT  FILE  FORMATS 

As  stated  earlier,  DRC's  primary  function  is  to  couple  the  MORSE  Monte 
Carlo  adjoint  leakage  information  with  the  DORT  free-field  fluences  to 
compute  the  estimates  of  the  fluences  and  doses  within  the  vehicle 
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Table  7-3.  Location  of  DRC  arrays  in  BLANK  COMMON. 


Mnemonic 

Location  in 

Array 

name 

BLANK  COMMON 

Purpose 

ENER{IG) 

I  . 

1  +  IG  -  1 

Upper  limit  of  MORSE  energy  group 
IG  in  eV 

VEL{1G) 

I  - 

NMTG  +  IG  -  1 

Velocity  of  MORSE  energy  group  IG 

FS{IG) 

I  - 

2*NMTG  +  IG  -  1 

Unnormalized  fraction  of  source 
particles  in  MORSE  energy  group  IG 

BFS{IG) 

I  - 

3*NMTG  +  IG  -  1 

Relative  importance  of  MORSE 
energy  group  IG 

DELE(IG) 

I  - 

4*NMTG  +  IG  -  1 

Bin  width  of  energy  bin  IG 

ILEAK(NB) 

I  - 

LOCLK  +  NB  -  1 

Number  of  particles  leaking  from 
system  in  batch  NB  of  MORSE  run 

ASORC(NB) 

I  - 

LOCASC  +  NB  -  1 

Total  source  weight  for  batch  NB 

BUF{IP0S) 

I  - 

LOCBUF  +  IPOS  -  1 

Temporary  storage  for  MORSE 
collision  tape  data 

IVAL(IF) 

I  - 

IVL  +  IF  -  1 

Index  of  radial  fluence  for 
fluence  point  IF 

DWT(IANG) 

I  - 

IWT  +  lANG  -  1 

Weight  for  direction  lANG  from 
VISTA  quadrature 

AMU(IANG) 

1  - 

IMU  +  lANG  -  1 

Azimuthal  angle  corresponding  to 
direction  lANG 

ETA(IANG) 

I  - 

lET  +  lANG  -  1 

Polar  angle  corresponding  to 
direction  lANG 

R(IN) 

I  - 

IR  +  IN  -  1 

Radial  mesh  point  corresponding  to 
radial  bin  IN 

Z(IN) 

I  - 

IZ  +  IN  -  1 

Axial  mesh  point  corresponding  to 
height  bin  IN 

A{IA) 

I  - 

IROT  +  lA  -  1 

3x3  rotation  matrix  for  rotating 
the  vehicle 

FDOS(IG) 

I  - 

IFD  +  IG  -  1 

Free-field  dose  for  group  IG 

DELU(IG) 

I  - 

lOU  +  IG  -  1 

Logarithm  of  upper  energy 
bound/lower  energy  bound  for 
group  IG 

ICA(IG) 

I  - 

ICE  +  IG  -  1 

Correspondence  of  energy  group 
numbers  in  VISTA  with  those 
in  MORSE 

VE(IGG) 

I  - 

INV  -t-  IGG  -  I 

VISTA  energy  group  boundaries 
followed  by  NNEUT  (number  of 
neutron  groups)  and  NGAM 
(number  of  gamma  groups) 

DELVE(IGG) 

I  - 

INV  +  IGG  -  1 

Delta  E  for  VISTA  energy  group 
boundaries 
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Table  7-4.  Definitions  of  variables  in  TDTl  COMMON. 


Variable 


Definition 


NANG  Number  of  directions  in  quadrature  from  VISTA  file 

NRADI  Number  of  radii  from  VISTA  file 

NAXI  Number  of  axii  from  VISTA  file 

NOG  Number  of  energy  groups  from  VISTA  file 

NOGPl  NOG  -f  1 

NDWN  Number  of  downward  directions  from  VISTA 
NJFLX  Number  of  axial  fluences  on  VISTA  file 
NIFLX  Number  of  radial  fluences  on  VISTA  file 
JSTRT  Index  of  first  J  fluence 
JLST  Index  of  last  J  fluence 
IWT  Location  of  weights  from  VISTA  quadrature 

IMU  Location  of  mu's  (azimuthal  cosines)  from  VISTA  quadrature 

lET  Location  of  eta's  (polar  cosines)  from  VISTA  quadrature 

IR  Location  of  radii  from  VISTA  file 

IZ  Location  of  Z  or  axial  points  from  VISTA  file 

IROT  Location  of  rotation  matrix  A 

NETADN  Number  of  downward  eta  bins 
NLPTR  Number  of  entries  in  PTR  array 
LDETA  Location  of  DETA  array  in  blank  common 
LDDETA  Location  of  DDETA  array  in  blank  common 
LDPSI  Location  of  DPSI  array  in  blank  common 
LDDPSI  Location  of  DDPSI  array  in  blank  common 
LPTR  Location  of  PTR  array  which  contains  polar  angle  eta  and 
its  associated  azimuthal  angles  (NANG  +  NDETA  values) 

LLOC  Location  of  ILOC  array  which  contains  pointers  to  the 

eta's  in  the  PTR  array  (NDETA  values) 

NZBOT  Index  of  bottom  coupling  surface  ZBOT  in  array  of  VISTA 

axial  boundaries 

NZTOP  Index  of  top  coupling  surface  ZTOP  in  array  of  VISTA  axial 
boundaries 

NZPTS  Number  of  axial  points  being  processed 

NRAD  Index  of  detector  radius  in  array  of  VISTA  radii 

IFLX  Location  of  VISTA  fluences  in  blank  common  (NZPTS*NMTG*NANG) 

NDETA  Number  of  polar  angles  (eta's) 

NDPSI  Number  of  non-zero  quadrature  weights 

ILST  Last  used  location  in  blank  common  -  i.e.,  size  required 

for  blank  common 

IFD  Location  of  FDOS  array  in  blank  common 

IDU  Location  of  DELU  array  in  blank  common 

ICE  Location  of  ICA  array  in  blank  common 

IDIF  Signal  indicating  whether  the  number  of  VISTA  and  MORSE 

energy  boundaries  are  the  same  (0),  or  MORSE  has  more  (1), 
or  VISTA  has  more  (2) 
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Variable 

LEAK 

IBUFSZ 

NGPQTT 

MAXSZ 

NMCTP 

NSTAP 

NIN 

NOU 

IPRT 

IRC 

NBTCH 

HGT 

TNDOS 

TGDOS 

WATMX 

LOCLK 

LOCASC 

LOCBUF 

TITLM{18) 

LOCDE 


Table  7-5.  Definition  of  variables  in  IDRC  COMMON. 

Definition 

Leakage  value  for  current  batch  from  MORSE 

The  size  of  the  buffer  for  the  collision  parameters 
(Set  at  1000) 

Not  used 

Size  of  blank  common  (100000) 

Logical  unit  number  of  MORSE  collision  tape 

Logical  unit  number  of  VISTA  fluence  file 

Logical  unit  number  of  standard  input  unit 

Logical  unit  number  of  standard  output  unit 

Signal  to  print  detector  output  only  (0),  free-field 
only  (1),  both  of  the  above  plus  protection  factors 
and  energy-dependent  arrays  (2). 

Counter  for  record  number 

Counter  for  batch  number  currently  being  processed 

Height  in  cm  for  free-field  dose  -  usually  equivalent 
to  the  detector  height  in  the  MORSE  adjoint  run 

Free-field  neutron  dose 

Free-field  gamma  dose 

Maximum  weight  accepted  for  processing 

Location  in  blank  common  of  ILEAK  array  from  MORSE 
collision  tape 

Location  in  blank  cownon  of  ASORC  array  from  MORSE 
collision  tape 

Location  in  blank  common  of  buffer  array  for  collision 
parameters  from  MORSE 

Alphanumeric  title  from  MORSE  collision  tape 

Location  of  DELE  array,  the  delta  energy  for  MORSE 
energy  groups 


7-13 


interior.  Furthermore,  DRC  utilizes  the  free-field  fluences  and 
estimates  from  the  in-vehic1e  fluences  (and  doses)  to  calculate  neutron 
protection  factors  and  reduction  factors  for  the  vehicle. 

To  accomplish  its  primary  function,  DRC  reads  a  VISTA  formatted  file  to 
obtain  the  DORT  free  field  fluence  data,  and  a  MORSE  adjoint  leakage 
tape  to  obtain  the  parameters  necessary  for  it  to  estimate  the  fluences 
and  doses  within  the  vehicle  interior.  The  format  of  the  VISTA  input 
source  file  is  as  follows: 


Record  1:  TITLE,  TDOT  -  144  Alphanumeric  Characters 

Record  2: 


MM  -  Number  of  quadrature  directions 

IM  -  Number  of  radial  intervals 

JM  -  Number  of  axial  intervals 

IGM  -  Number  of  energy  gro(.ps 

IGP  -  Number  of  energy  groups  plus  1 

MMDN  -  Number  of  directions  downward 

NJP  -  Number  of  axial  fluences 

ISH  -  Height  of  source  point 

ISHA  -  Cosine  of  source  angle  (with  Z-axis) 

NIP  -  Number  of  radial  fluences 

JPL  -  Index  of  first  J  interval  on  file 

JPU  -  Index  of  last  J  interval  on  file 

11  additional  VISTA  input  values  not  used  in  MASH 


Record  3;  IVAL 
Record  4: 

WT 

AMU 

ETA 


Array  of  radial  interval  numbers  being  output 

[MM  values  per  array;  3*MM  total  values] 

Weights  from  DORT  quadrature 
Mu's  from  DORT  quadrature 
Eta's  from  DORT  quadrature 


Record  5: 


[NIP  +  NJP  values] 


R  -  Midpoints  of  radial  bins 

Z  -  Midpoints  of  axial  bins 


Record  6  to  END:  [NANG*NJFLX  values  per  record] 

[IGM  records  per  radius,  and  NIFLX  radii] 


FLUX  -  Directional  fluences 
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Because  of  the  large  amount  of  core  storage  required  for  the  VISTA  free- 
field  fluences,  the  forward -adjoint  coupling  could  not  be  accomplished 
as  the  Monte  Carlo  calculation  was  performed.  The  coupling  involved  the 
calculation  of  the  integral 


R  =  iP){n.n)dP 


over  the  coupling  surface  S. 
We  define 


$(P)  “  VISTA  free-field  fluences  in  phase  space  P. 
$*(P)  «  MORSE  adjoint  fluence  in  phase  space  P. 


Qn  -  cosine  of  angle  between  particle  direction  and  inward  normal. 


The  adjoint  fluence  at  the  r^,  the  position  of  the  surface  S,  was 
written  on  a  leakage  tape  along  with  other  variables  necessary  for 
coupling  the  MORSE  results  with  the  VISTA  results.  The  variables 
written  on  tape  for  each  adjoint  leakage  were  as  follows: 


1.  IG  -  the  group  number, 

2.  IGS  -  the  source  group, 

3.  WTBC  -  the  weight  of  the  adjoint  particle  at  leakage, 

4.  U  -  X  direction  cosine, 

5.  V  -  Y  direction  cosine, 

6.  W  -  Z  direction  cosine, 

7.1  -  height  of  leakage  point, 

8.  lOET  -  detector  type  in  which  particle  is  to  be  scored. 


An  output  buffer  was  blocked  to  transfer  the  data  from  core  to  tape 
efficiently  at  the  end  of  each  batch.  This  permitted  batch  statistics 
to  be  calculated  in  the  DRC  code  which  reads  the  MORSE  leakage  tape  and 
the  VISTA  fluence  tape  and  performs  the  coupling.  The  leakage  tape 
generated  by  MORSE  contains  the  following  data: 
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Record  1  -  Title  and  date  of  MORSE  run 
Record  2  -  Initial  Data  Record  -  24  words 
Record  3  -  Energy  Group  Structure,  Velocities,  Source  Spectra 
and  Biasing  Function  -  4*NMTG  words 
Record  4  -  Array  of  Number  of  Particles  Leaking  Per  Batch  - 
NITS+1  words 

Record  5  -  Array  of  Source  Weights  Per  Batch  -  NITS+1  Words 
Record  6  -  A  Block  of  Leakage  Information  for  125  Adjoint  Particles  - 
1000  words 

tt  H  tf  n  II  II  II  11  If  It  It  n  n  II  If  it  it  it  ii  ti  it  it  ti  ii  ii  it  it 

n  II  N  11  N  II  It  It  II  tt  II  If  If  II  tl  It  It  II  tt  It  11  It  M  It  11  II  II 

II  n  N  II  It  If  tt  H  II  It  It  It  H  II  n  It  It  II  It  II  It  II  II  II  II  II  II 

Record  N  - 


A  detailed  description  of  the  contents  of  the  above  records  is 
given  below: 

I.  Record  1  -  A  40  character  title  plus  a  32  character  date  of  run 

II.  Record  2  -  The  USER  labeled  coranon  (plus  parameter  INGB)  is 
written  in  Record  2.  The  total  number  of  groups, 
number  of  batches,  etc.,  are  contained  in  this  record, 
as  defined  in  Table  7-6. 

III.  Record  3  -  The  multigroup  energy  structure  and  group  velocities 
are  contained  in  Record  3.  The  data  are: 

E(l)  -  Upper  energy  limit  of  Group  1. 


E(NMTG)  -  Upper  energy  limit  of  Group  NMTG. 
VEL(l)  -  Velocity  of  Group  1. 


VEL(NMTG)  -  Velocity  of  Group  NMTG. 
F(l)  -  Fraction  of  Source  in  Group  1 


F(NMTG)  -  Fraction  of  Source  in  Group  NMTG 
B(l)  -  Biased  Fraction  in  Group  1 


B(NMTG)  -  Biased  Fraction  of  Source  in  Group  NMTG 
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IV. 


Record  4  -  The  number  of  particles  that  leak  per  batch  are  given 
in  Record  4.  This  data  is  necessary  in  order  to 
normalize  the  batch  results  per  source  neutron. 

L(l)  -  Number  of  leakage  particles  in  batch  1. 


L(NITS)  -  Number  of  leakage  particles  in  batch  NITS. 


L(NITS+1)  -  Total  number  of  leakage  records  written  on  tape. 

V.  Record  5  -  The  sum  of  the  source  weights  of  the  particles  in  a 
batch. 


ASORC(l)  -  Sum  of  weights  of  source  particles  in  batch  1. 
ASORC(NITS)  -  Sum  of  weights  of  source  particles  in  batch  NITS 


VI.  Record  6  -  The  adjoint  leakage  fluence  blocked  in  groups  of  125 
particles. 


B(l)  -  IG  Energy  Group 
B(2)  -  IGS  Source  Group 
B{3)  •  WTBC  Weight  at  leakage 
B{4)  -  U  — I  direction 

B(5)  -  V  —  cosines 
B(6)  ••  W  — I  at  leakage 

B(7)  -  Z  Height  at  leakage 
B(8)  -  IDET  Detector  Type 


—  Particle  1 


tf 


n 


H 

n 


—  Particle  2 


n 


n 


B(IOOO)  -  IDET  Detector  Type 

VII.  Additional  records  in  the  format  of  Record  6  to  a  total  of 
L(NITS+1)  leakage  records. 
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Table  7-6.  Definitions  of  Variables  in  USER  COMMON. 


Number  Variable  Definition 


1 

AGSTRT 

Initial  chronological  age  to  be  assigned  to  source 
particles 

2 

WTSTRT 

Initial  weight  to  be  assigned  to  source  particles 

3 

XSTRT 

Initial  x  position  to  be  assigned  to  source 
particles 

4 

YSTRT 

Initial  y  position  to  be  assigned  to  source 
particles 

5 

ZSTRT 

Initial  x  position  to  be  assigned  to  source 
particles 

6 

DFF 

Normalization  for  adjoint  problems 

7 

EBOTN 

Lower  energy  boundary  (eV)  of  last  neutron  group 
(group  NMGP) 

8 

EB0T6 

Lower  energy  boundary  (eV)  of  last  gamma-ray  group 
(group  NMTG) 

9 

TCUT 

Chronological  age  limit 

10 

10 

Logical  unit  for  output 

11 

11 

Logical  unit  for  input 

12 

lADJM 

Adjoint  switch  (>  0  for  adjoint  problem) 

13 

NGPQTl 

Problem-dependent  energy  group  limit 

14 

NGPQT2 

Problem-dependent  energy  group  limit 

15 

NGPQT3 

Problem-dependent  energy  group  limit 

16 

NGPQTG 

Group  number  of  lowest  energy  gamma-ray  group 
to  be  treated 

17 

NGPQTN 

Group  number  of  lowest  energy  neutron  group  to 
be  treated 

18 

NITS 

Number  of  batches  to  be  run 

19 

NLAST 

Last  cell  in  BLANK  COMMON  used  by  random  walk 
package 

20 

NLEFT 

Number  of  cells  in  BLANK  COMMON  available  to  user 

21 

NMGP 

Number  of  primary  energy  groups 

22 

NMTG 

Total  number  of  energy  groups 

23 

NSTRT 

Number  of  source  particles  for  each  batch 

7.5  DRC  OUTPUT  FILES 

DRC  only  produces  a  printed  output  file. 


7.6  LOGICAL  UNIT  REQUIREMENTS 

Below  is  a  listing  of  the  files  required  to  execute  a  DRC  case  along 
with  the  default  values  used  in  the  code.  In  setting  up  a  DRC  case, 
efforts  must  be  made  for  these  units  to  be  available. 
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1.  Logical  Unit  NSTAP  -  VISTA  Angular  Fluence  File  [Default=15] 

2.  Logical  Unit  NMCPT  -  MORSE  Adjoint  Leakage  File  [Default=24] 

3.  Logical  Unit  NOU  -  Printed  Output  [Default«6] 

4.  Logical  Unit  NIN  -  Card  Input  [Default-5] 
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7.8  SAMPLE  PROBLEM 

A  complete  listing  of  the  input  cards  for  the  sample  problem  is  given  in 
Figure  7-1,  and  some  selected  output  is  shown  in  Figure  7-2.  The  sample 
problem  demonstrates  the  processing  of  the  VISTA  fluence  file  for  the 
air-over-ground  free-field  environment  at  400  meters  from  the  source  and 
the  MORSE  adjoint  calculation  of  the  two-meter  box  experiments  at  400 
meters.^'*  In  viewing  Figure  7-1,  the  input  illustrates;  a  radius  of 
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400  meters  {RAD-40000.0  cm),  the  DORT  and  MORSE  air-ground  interfaces 
were  equivalent  (AZERO-0.0),  and  a  zero  degree  rotation  of  the  box 
(ALPHA-0.0).  The  minimum  (ZBOT)  and  maximum  (ZTOP)  z  boundaries  in  the 
MORSE  geometry  were  -15.0  cm  and  900.0  cm,  respectively,  and  the 
detector  height  in  the  MORSE  adjoint  calculation  was  110.16  cm.  The 
print  control  flag  (IPRT)  was  set  to  2  to  obtain  both  free-field  and  in- 
vehicle  fluence  and  dose  data,  and  the  maximum  weight  allowed  would 
default  to  the  value  pre-set  in  the  code  (WATMX-0).  The  VISTA  and  MORSE 
group  structures  were  equivalent,  so  consequently.  Cards  C,  D,  and  E 
were  omitted  from  the  input.  The  next  three  title  cards  are  for  Cards 
F,  G,  and  H.  The  response  function  utilized  in  the  DRC  analysis  is  the 
free-in-air  tissue  kerma  response  in  units  of  gy  cm^/n,7.  The  last  card 
is  the  input  for  Card  J.  This  particular  input  deck  did  not  exercise 
the  option  of  stacking  cases  for  different  target  orientations.  Notice 
that  the  "**"  values  are  in  columns  2  and  3.  DRC  will  not  correctly 
identify  the  input  if  these  FIDO  control  parameters  are  not  in  the 
proper  columns. 

The  selected  DRC  output  shown  in  Figure  7-2  first  illustrates  the  input 
parameters  read  from  Cards  A  and  B,  the  rotation  matrix  for  the 
parameter  alpha,  and  a  series  of  titles  identifying  the  MORSE 
calculation,  the  VISTA  calculation  file,  and  the  DORT  calculation  used 
to  create  the  input  files  for  this  DRC  case.  The  titles  are  followed  by 
parameters  relevant  to  the  VISTA  fluence  file  including  some  control 
parameters,  the  specific  quadrature  information,  and  radial  and  axial 
mesh  points  on  the  VISTA  file.  The  output  then  contains  some  arrays 
used  internal  to  DRC  that  may  not  be  useful  to  the  user,  followed  by  an 
indication  of  the  storage  used  in  the  DRC  case.  A  title  from  the  MORSE 
adjoint  history  file  is  then  printed  indicating  whether  the  in-group 
biasing  option  in  MORSE  was  invoked.  The  MORSE  input  source  spectrum 
and  bias  function  are  then  printed  indicating  the  source  sampling 
utilized  in  the  adjoint  calculation.  Next,  the  output  lists  the 
response  function  title,  the  values  of  the  response  function  to  be 
folded  with  the  free-field  and  in-vehicle  fluences,  and  arrays  relevant 
to  the  energy  bins  used  in  the  DRC  case.  Much  of  this  last  set  of 
output  is  similar  to  the  output  of  the  SAMBO  routines  in  MORSE  since  DRC 
contains  a  modified  version  of  SAMBO. 

The  next  output  is  the  results  of  the  calculations  in  subroutine  FREDOS 
and  represents  the  GRTUNCL/DORT  free  field  fluence  and  dose  at  the 
detector  location  in  the  MORSE  geometry.  Both  the  spectra  and  integral 
totals  are  printed.  This  output  is  then  followed  by  the  DRC  detector 
responses  (Table  7-1)  along  with  their  fractional  standard  deviations 
and  protection  factors  and  reduction  factors  (Table  7-2)  for  the 
response  function  given  in  the  input  (Card  I).  These  values  are  what 
the  entire  MASH  analysis  is  geared  to  determine.  Finally,  the  DRC 
output  gives  the  energy  dependent  fluence  and  dose  arrays  for  the  first 
six  detector  types  listed  in  Table  7-1  along  with  the  normalized  total 
neutron  and  photon  fluence  and  dose  arrays.  The  format  of  these  arrays 
is  quite  cumbersome,  however,  useful  information  can  be  obtained  from 
them.  Future  efforts  will  hopefully  improve  these  output  arrays  into  a 
more  useful  format. 


7-20 


2in  box  exp/4in  stee1/dabl  46n-23g  lib/aprf  sh-16.143in/10-24-89{a)  air 

**  40000.0  0.0  -15.0  900.0  0.0  110.16  2  0 

46  neutron  -  23  gamma  flat  and  free-in-air  tissue  kerma  response  input 

--  l*neut  2-veh  n-g  3-grd  n-g  4«photons 
mash  46n/23g  group  free-in-air  tissue  kerma  response  (gy.cm2/n,g) 

-kic 

736532-16  704584-16  685894-16  674499-16  661555-16  638136-16  633529-16 
598822-16  57632-15  551514-16  546431-16  512651-16  470858-16  457805-16 
44359-15  419381-16  357307-16  332494-16  321126-16  291193-16  263438-16 
252468-16  222507-16  205934-16  193682-16  179065-16  163746-16  130075-16 
102563-16  806538-17  563405-17  359169-17  25917-16  213032-17  147572-17 
628401-18  219938-18  925902-19  448136-19  20734-18  103718-19  932428-20 
135874-19  228494-19  372646-19  129126-18  401109-16  317559-16  27612-15 
23517-15  205102-16  185083-16  164356-16  143343-16  121273-16  1036-14 
902669-17  755621-17  585321-17  42722-16  296381-17  192968-17  105409-17 
529629-18  348187-18  313231-18  484629-18  10497-16  339599-17 
energy  group  totals 


Figure  7-1.  Sample  DRC  Input  for  the 
Two-Meter  Box  Protection  Factor  Analysis. 
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Figure  7-2.  Sample  DRC  Output  for  the  Two-Meter  Box  Protection  Factor  Analysis. 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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r«<Juctton  factor  (nautrona)  •  1.5997a>00 

raductlon  factor  (photons)  •  3.5362a*CX) 

raductfon  factor  (totaf)  •  1.7991a>00 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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noutron  from  vahicio  aource  fron  ground  photona  photona  entering  vehicle 


H  §§  §i  11  §1  §i  l§  fi  §1  §§  §§  11  §§  §§  H  11  11 

bddbbddddbdbobdbd 


11  II  11  II  II  II  II  II  II  II  II  II  II  II  II  II  II 

^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d 

ddddddddddddddddd 


S8  88  88  88  88  88  88  88  88  88  88  88  88  88  88  88 

♦  o  ♦o  -*o  ♦O  ♦O  *  o  ♦o  ♦&  ♦o  *o  ♦O  *0  -*^0  ♦o 


8^  8^  8^  8^  8^  8^  8^  8^  8^  8^  8^  8^  8^  8^ 

ddddddddddddddddd 


“O 

O) 


88  88  88  88  88  88  88  88  88  88  88  ZZ  88  88  88  88  88 

*  o  ♦o  *  o  *  O  ^  O  *  O  *  O  *  O  *  o  *  o  *  O  *  O  *  O  *  O  *  O  *  O  ♦O 

ddddddddddddddddd 


^n  *9  r*  net  r»a>  «•  nn  nn  r>e»  r>P  «•  ne  no  ^  r>  ^  n 

no  ng  ne  n«  ni  nn  nV  nn  r»^  n  ^  n^  nn  n  ^  nn  n^  n  n 


O  ng  nj  n«  n^  ng  ng  ng  n 


O  ^O  ;0  ;o  ;o  ^o  .O  ;e  iO 


O  no  PC  PO  ^O  **0  nO  60  PO  PP  PO  no  PO  r>  O 


8  S 


8 

n  n 


p  p  p  p 


88888888888  8888 


eaeeeaaap 

*p  n  n  n  p  p  P  n 

-POnnO  -  on 

on  n  p  e  «■  p  n  e 


e  e  e  e 

h*  P  n 

e  n  f»  p 


8  p 

pnn  —  ^pnnn 


C 

O 

u 


§i  §i  H  8§  f§  !i  fi  fi  fi  fi  fi  fi  fi  fi  fi  fi  fi 

^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d  ^d 

ddodddddddddddddd 


C\J 

I 

hs. 

Q) 

1. 

3 

a> 


7-36 


(  MOP 


•  - 

u  r 

k  • 

g' 

"? 
c  - 

O  (. 

• 

f  c 

a  • 


li 

m  a 


^  c 
u  o 

• 

ig 

V  a 


? 

g 

o  o 

gg 

a  c 


0  u 

lg 


g 

«•  • 

Si 

•  • 

L  > 

ii 

m  L 

o  •• 


r*  o 
•  O 

*d 


^  <0 
«  r> 
•  O 


»  O 
« 


«  o 

i® 

-  o 


^  o 

M  lA 

;® 
tn  o 
O 


^  9 

n 
'  O 

io 

9> 

« 


«  et 
t%  n 
•  O 


f'*  w 

;® 
•  o 


m  0» 
n 
•  O 

£  6 

» 


€i  CD 
ri  « 

•  O 

•  - 

r»  O 


ir>  M 

M  « 

■  o 

•  • 

•  o 


Cl  iD 

'  O 

•  ■ 

*0  o 


Cl  r** 

>  O 


m  O 

^8 

m 


lA  tf) 
?8 


DO  ^  O 

n  ^ 

•  ^ 


PP  tf)  P  <AC>  tf)  lA  ^ 

s 

*  d  *  o  p  o 


I® 


tf)lA  IAd  tftO  0>** 
CIg  Cip 


•  •  • 

tA  O  DO 


8o 

9 


•  O 

9 


•  •  •  '  •  • 

JO  «o  jO 


m  «  «  «  p  D 

D  D  t%9  D  ^ 

r O  90  90 

O  9  trt 

9  9 


9  9 
D  m 

•  9 

So 


S d  DO 


n  99  p 

D  ®  DP  O 

•  N  •  •  * 

9  0  DO 


^  m 

D«  DO  D^  on  D 

-  .  O  •  “ 


Sd 


^5 


99 
D  ^ 

lO 


no  no  WO  PO  DO  pO  DO 

c  D  C»  D  D  p  O 

«  P  P  P  ^  O  O 

-  p  p  ^ 


P  o  p  Cl 
D  j  D  «r 

i® 

« O  OO 


•  o 

•  ■ 

D  o 


P  P  P  D 

-  -  Dr 

'  t 

• 


^  D 


ss  88  88  88  88  88  88  88  88  88  88  88  88  88  88  88  88 

40  40  40  40  ^O  40  40  ^O  «0  ♦O  ^O  *^0  ♦O  *0  40 

^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b  ^b 

oobbbobobbooobboo 


7-38 


Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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Figure  7-2.  (continued) 
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APPENDIX  A 
FIDO  INPUT 


FIDO  INPUT 


The  FIDO  input  method  is  especially  devised  to  allow  the  entering  or 
modifying  of  large  data  arrays  with  minimum  effort.  Special  advantage 
is  taken  of  patterns  of  repetition  or  symmetry  wherever  possible.  The 
FIDO  system  was  patterned  after  the  input  method  used  with  the  FLOCO 
coding  system  at  Los  Alamos  and  was  first  applied  by  Atomics 
International  to  the  DTF-II^  code.  Since  that  time,  numerous  features 
requested  by  users  have  been  added,  a  free-field  option  has  been 
developed,  and  the  application  of  FIDO  has  spread  to  innumerable  codes. 

The  data  are  entered  in  units  called  "arrays."  An  array  comprises  a 
group  of  contiguous  storage  locations  which  are  to  be  filled  with  data 
at  one  time.  These  arrays  usually  correspond  on  a  one-to-one  basis  with 
FORTRAN  arrays  used  in  the  program.  A  group  of  one  or  more  arrays  read 
with  a  single  call  to  the  FIDO  package  comprises  a  "block."  A  special 
delimiter  is  required  to  signify  the  end  of  each  block.  Arrays  within  a 
block  may  be  read  in  any  order  with  respect  to  each  other,  but  an  array 
belonging  to  one  block  must  not  be  shifted  to  another.  The  same  array 
can  be  entered  repeatedly  within  the  same  block.  For  example,  an  array 
can  be  filled  with  zero  using  a  special  option,  and  then  a  few  scattered 
locations  could  be  changed  by  reading  in  a  new  set  of  data  for  that 
array.  Some  arrays  can  be  omitted  if  no  entries  to  that  array  are 
required.  If  no  entries  to  any  of  the  arrays  in  a  block  are  required, 
but  the  condition  requiring  the  block  is  met,  the  delimiter  alone 
satisfies  the  input  requirement.  Three  major  types  of  input  are 
available:  free-field  input,  fixed-field  input,  and  user-field  input. 
Each  field  includes  up  to  three  subfields.  Each  array  is  identified  by 
an  "array  originator  field”  having  two  subfields: 

Subfield  1:  An  integer  array  identifier  signals  the  identity 

of  the  array  to  follow. 

Subfield  2:  An  array  type  indicator,  used  as  follows: 

free-field  integer  array 
free-field  real  array 

fixed-field  integer  array 
fixed-field  real  array 
"U"  user-field,  format  to  be  read  in 

"V"  user-field,  previous  format  to  be  used 

These  subfields  are  written  together,  without  blanks.  Data  are  then 
placed  in  successive  data  fields  until  the  required  number  of  entries 
has  been  accounted  for. 

In  entering  data,  it  is  convenient  to  think  of  an  "index"  or  "pointer" 
which  is  under  control  of  the  user,  and  which  specifies  the  position  in 
the  array  into  which  the  next  data  entry  is  to  go.  The  pointer  is 
always  positioned  at  the  first  array  location  by  entering  the  array 
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originator  field.  The  pointer  subsequently  moves  according  to  the  data 
operator  chosen. 

Free-field  input  allows  an  arbitrary  number  of  fields  to  be  entered  in 
columns  1-72,  with  fields  separated  by  one  or  more  blanks.  A  field  must 
begin  and  end  in  the  same  record.  In  general,  a  data  field  has  up  to 
three  fields: 


Subfield  1:  The  data  numerator,  N,,  an  integer. 

Subfield  2:  The  data  operator,  N2,  a  character. 

Subfield  3:  The  data  entry,  N3,  an  integer  or  real  number. 

If  subfields  1  and  2  are  both  used  in  a  field,  they  must  not  be 
separated  by  blanks.  Blanks  may  precede  subfield  3,  however.  All 
entries  following  a  "/■  in  a  given  record  are  ignored. 

Single  data  entries  use  only  N3,  which  may  be  entered  with  or  without  a 
decimal  point.  The  type  (integer/real)  will  be  determined  by  the 
previous  array  identifier: 

1$$  123  /enter  integers  1,2,3 

2**  1.  1.1  2  /enter  reals  1.0, 1.1, 2.0 

An  exponent  field  may  be  added,  with  or  without  the  "E"  identifier.  No 
imbedded  blanks  within  the  subfield  are  allowed.  The  subfield  must  have 
no  more  than  nine  columns,  including  the  decimal  but  not  including  the 
exponent  field.  The  pointer  is  advanced  by  one  for  each  entry: 


2** 

3** 

BUT  NOT  3** 
AND  NOT  3** 


l.EO  .11+1  200-2  /same  entries  as  above 

1234.5678E-3  /8  columns  +  decimal 

1.23456789  /too  many  columns 

0.0E6  /produces  wrong  results 


Multiple  data  entries  use  Nj  and  (except  the  "F"  operator)  N,  together 
with  N3  to  enter  several  items  with  a  single  field.  The  type  of 
operation  is  indicated  by  Nj. 


"R“  indicates  that  data  entry  N3  is  to  be  repeated  N,  times.  The 
pointer  is  advanced  by  N^. 


"I"  indicates  linear  interpolation.  The  data  numerator,  N^,  indicates 
the  number  of  interpolated  points  to  be  supplied.  The  data  entry  N3  is 
entered,  followed  by  N,  interpolated  entries  equally  spaced  between  that 
value  and  the  value  in  the  third  subfield  of  the  next  field.  The  next 
field  may  be  a  single-  or  multiple-data  entry.  The  pointer  is  advanced 
by  N,  +  1.  The  field  following  an  "I"  entry  is  then  processed  normally, 
according  to  its  own  data  operator.  The  “I*  entry  is  especially 
valuable  for  specifying  a  spatial  mesh.  In  integer  arrays,  interpolated 
values  will  be  rounded  to  the  nearest  integer. 
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■L"  indicates  logarithmic  interpolation.  The  effect  is  the  same  as  that 
of  "I"  except  that  the  resulting  data  are  evenly  separated  in  log-space. 
This  is  obviously  limited  to  positive  real  numbers. 

"F"  fills  the  remainder  of  the  array  with  Nj.  N,  is  not  used.  For 
example,  the  following  are  equivalent  ways  of  filling  an  8-entry  array: 

2$$  1  2  3  4  6  6  8  8 

2$$  211  4  2R6  F8  /same  as  above 

Sequence  data  entries  allow  entries  to  be  patterned  after  data  entered 
by  previous  fields  or  previously  existing  in  storage.  Fields  N,,  N2, 
and  N3  are  used,  except  that  if  is  omitted,  it  is  taken  to  be  one. 

"Q"  is  used  to  repeat  sequences  of  numbers  without  modification.  The 
length  of  the  sequence  is  given  by  the  third  subfield,  Nj.  The  sequence 
of  Nj  previous  entries  is  to  be  repeated  N,  times.  The  pointer  is 
advanced  by  Ni*N3.  This  feature  is  especially  valuable  in  specifying 
matrices  with  repeated  or  symmetrical  columns  or  rows. 

"G"  has  the  same  effect  as  "Q"  except  that  the  sign  of  each  entry  of  the 
sequence  is  changed  each  time  it  is  entered. 

■N"  has  the  same  effect  as  "Q,"  except  that  the  order  of  the  sequence  is 
reversed  each  time  it  is  entered. 

■M“  has  the  same  effect  as  "Q,"  except  that  both  the  sign  and  the  order 
of  the  sequence  are  reversed  each  time  it  is  entered. 

Options  Q,  G,  and  M  are  valuable  in  entering  directional  quadrature 
sets.  As  examples: 

81**  1  2  3  1Q3  /I, 2, 3, 1,2,3 

82**  -3  -2  -1  M3  /-3, -2, -1,1, 2, 3 

83**  3R-2  G3  /-2, -2, -2, 2, 2, 2 

Zero  data  entries  use  subfields  and  N2. 

"Z"  sets  the  next  N,  entries  to  zero.  The  pointer  is  advanced  by  N, .  As 
an  example: 


1$$  3Z  1  2  /O, 0,0, 1,2 

Pointer-movement  data  entries  move  the  pointer  without  changing  the  data 
array.  Subfields  N,,  N3,  or  neither  may  be  required. 

"S"  indicates  that  the  pointer  is  to  skip  forward  over  N,  positions, 
leaving  those  array  positions  unchanged. 

"B"  moves  the  pointer  backward  N,  positions. 

"A"  moves  the  pointer  to  the  position  N3. 
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"E"  skips  over  the  remainder  of  the  array.  The  array  length  criterion 
is  satisfied  by  an  "E,"  unless  too  many  entries  ha^'e  been  specified.  No 
more  entries  to  an  array  may  be  given  following  an  "E,"  except  that  data 
entry  may  be  restarted  with  an  "A." 

For  example,  given  the  following  sequence  of  entries,  comments  indicate 
the  result  of  reading  an  array  of  length  8: 


1$$  1  2  3  4  5  6  E 

1$$  2  IS  4  A7  7  8 

1$$  21  1  4  IB  F8 


/E  terminates  the  array,  leaving 
items  7  and  8  unchanged 
/now  we  have  2, 2, 4, 4, 5, 6, 7, 8 
/now  we  have  1,2, 3, 8, 8, 8, 8, 8 


Edit  fields  control  printing  within  the  FIDO  subroutines. 


"C"  causes  the  position  of  the  last  array  item  entered  to  be  printed. 
This  is  the  position  of  the  pointer,  less  1.  The  pointer  is  not  moved. 

"0“  causes  the  print  trigger  to  be  turned  on.  The  trigger  is  originally 
off.  When  the  trigger  is  on,  each  card  image  is  listed  as  it  is  read. 

■P"  causes  the  print  trigger  to  be  turned  off. 

■/■  occurring  in  column  1  causes  the  entire  record  to  be  ignored  as 
input,  but  to  be  printed  as  a  comment  in  the  output  stream. 

A  block  termination  field  consists  of  a  field  having  only  "T"  in  the 
second  subfield. 

The  reading  of  data  to  an  array  is  terminated  when  a  new  array 
originator  field  is  supplied,  or  when  the  block  is  terminated  by  a  block 
termination  field.  If  an  incorrect  number  of  positions  has  been  filled, 
an  error  edit  is  given,  and  a  flag  is  set  which  will  later  abort 
execution  of  the  problem.  FIDO  then  continues  with  the  next  array  if  an 
array  originator  was  read.  The  new  array  originator  need  not  begin  a 
new  record.  Otherwise,  FIDO  returns  control  to  the  calling  program. 

For  example: 


1$$  1  2  3  2**  FO  T 

User- field  input  allows  the  user  to  specify  the  input  format.  If  "U"  is 
specified  as  the  array-type  indicator,  the  FORTRAN  format  to  be  used 
must  be  supplied  in  columns  1-72  of  the  next  record.  The  format  must  be 
enclosed  by  parentheses.  The  data  for  the  entire  array  must  follow  on 
successive  records.  The  rules  of  ordinary  FORTRAN  input  as  to 
exponents,  blanks,  etc.,  apply.  If  the  array  data  do  not  fill  the  last 
record,  the  remainder  of  the  record  must  be  left  blank.  The  user  must 
insure  that  his  format  specifies  the  correct  type  of  data,  i.e,,  real  or 
integer. 

■V"  has  the  same  effect  as  "U"  except  that  the  format  read  in  the  last 
preceding  "U*  array  is  used. 
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For  example,  for  an  array  of  4  entries: 


lOU 

(612) 

12  3  4 
IIV 

4  3  2  1 

would  enter  integers  1,2, 3, 4  into  the  10th  array  and  4,3,2, 1  into  the 

nth. 

Fixed-field  input  uses  1  to  6  fields  per  input  record,  with  fixed,  12- 
column  fields.  It  is  thoroughly  described  in  the  DOT  IV  document.^ 
Because  it  has  been  almost  entirely  replaced  by  the  free-field  format, 
its  description  is  not  repeated  here. 
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APPENDIX  B 


IN-GROUP  ENERGY  BIASING 


IN-GROUP  ENERGY  BIASING* 


INTRODUCTION 


This  appendix  describes  the  in-group  energy  biasing  methodology’ 
developed  for  the  adjoint  MORSE^  calculation  utilized  in  MASH.  In-group 
energy  biasing  is  a  methodology  developed  by  W.  Scott  of  SAIC  to  adjust 
for  irregularities  observed  in  adjoint  Monte  Carlo  analyses  in  thick 
media  where  the  weights  of  adjoint  particles  could,  in  undergoing 
multiple  scattering  events,  become  very  large.  Further  development  of 
the  methodology,  discussed  herein,  suggests  that  in-group  energy  bias 
might  have  more-general  use  than  initially  expected.  The  in-group 
biasing  procedure  was  first  implemented  in  the  MIFT2’  version  of  the 
VCS^'^  MORSE  code.  The  in-group  biasing  procedure  has  since  been 
implemented  in  the  MASH  version  of  the  MORSE  code.  The  bulk  of  this 
appendix  was  extracted  from  the  MIFT2  document’  and  has  been  included  in 
this  manual  for  completeness. 

In-group  energy  biasing  (or  simply  in-group  biasing  or  in-group  bias)  is 
easy  to  use.  Unlike  other  Monte  Carlo  biasing  methods,  in-group  biasing 
does  not  require  that  the  user  set  up  and  input,  based  on  his  judgment, 
arrays  of  data  to  improve  the  efficiency  of  the  Monte  Carlo  calculation. 
This  means  that  a  person  less  skilled  in  adjoint  Monte  Carlo  can  often 
successfully  use  MASH  or  adjoint  MORSE,  since  use  of  in-group  bias 
requires  only  the  setting  of  a  switch  in  MASH.  Success  in  the  use  of 
the  other  biasing  methods  generally  requires  considerable  adjoint  Monte 
Carlo  experience. 

Based  on  results  obtained  with  the  MIFT2  and  MASH  MORSE  codes,  in-group 
energy  bias  appears  to  generally  improve  both  the  answer  and  the 
statistics  of  the  calculation.  Based  on  theory,  it  may  be  expected  that 
the  largest  gains  from  the  use  of  in-group  bias  occur  for  fairly  thick 
problems.  However,  improvements  for  thinner  problems  have  been  seen  as 
well.  Based  on  both  the  theory  and  the  results  of  sample  cases  reported 
herein,  it  might  be  suggested  that  in-group  bias  always  be  used  for 
adjoint  Monte  Carlo.  However,  in  recognition  that  users  may  at  times 
prefer  not  to  use  in-group  bias  or  may  wish  to  compare  results  obtained 
with  and  without  the  use  of  in-group  bias,  the  methodology  has  been 
implemented  with  a  switch  so  that  its  use  is  optional. 

This  appendix  is  divided  into  6  subsections.  Following  this 
introduction  section  is  a  background  section  which  traces  the  short 
history  of  the  development  of  the  in-group  biasing  methodology.  The 


*J.  A.  Stoddard,  S.  D.  Egbert,  and  W.  D.  Scott,  Jr.,  "The  Vehicle 
Code  System  with  In-Group  Energy  Bias  and  GIFTS  Geometry," 
DNA-TR-87-23,  Science  Applications  International  Corporation, 
(January  1987). 
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next  section  gives  a  theoretical  basis  for  in-group  bias,  followed  by  a 
section  describing  the  implementation  of  the  in-group  bias  methodology 
into  the  MASH  MORSE  code.  A  section  which  discusses  some  comparisons  of 
the  results  of  analyses  performed  with  and  without  in-group  bias  with 
each  other  and  with  experimental  data,  where  available,  follows. 

Finally,  a  list  of  references  pertaining  to  the  discussion  given  in  this 
appendix  is  presented. 


BACKGROUND 


It  has  long  been  recognized  that  for  certain  problems  adjoint  MORSE  and 
MASH  are  very  inefficient  at  obtaining  adequate  statistical  variances  in 
reasonable  run  times  especially  when  compared  to  the  efficiency  of 
forward  MORSE  calculations.  In  a  1979  SAIC  study®  for  the  BRL  it  was 
recognized  that  the  problem  stemmed  from  a  poorly  biased  energy  random 
walk  that  occurred  in  adjoint  MORSE  whenever  the  non-absorption 
probability  (PNAB)  was  much  greater  than  1.0.  At  that  time  it  was 
suggested  that  a  modified  adjoint  scattering  technique,  referred  to  as 
"in-group  energy  biasing",  would  be  significantly  more  efficient.  The 
defining  feature  of  in-group  energy  biasing  is  that  for  all  but  the  last 
group,  a  particle's  weight  only  changes  when  it  scatters  to  a  new  group. 
If  the  particle  stays  in  the  same  group  (in-group  scattering),  its 
weight  does  not  change.  Thus,  when  an  adjoint  particle  has  a  non¬ 
absorption  probability  greater  than  1.0,  its  weight  will  not  increase  so 
long  as  it  scatters  in  the  same  group.  When  it  finally  upscatters  to  a 
new  group,  its  weight  will  be  increased  by  a  fixed  amount  that  is  a 
function  only  of  the  cross  sections  and  not  of  how  many  times  the 
particle  scattered  in  the  same  group.  With  standard  adjoint  MORSE,  such 
a  particle  would  have  its  weight  increased  by  PNAB  each  time  that  it 
scattered  so  that  its  final  weight  upon  upscatter  would  depend  upon  how 
many  in-group  scatterings  that  it  had. 

In  a  1981  study*  for  the  Wehrwissenschaftl iche  Dienststelle  der 
Bundeswehr  fur  ABC-Schutz  (WWD)  Laboratory  in  the  Federal  Republic  of 
Germany,  SAIC  implemented  the  in-group  energy  biasing  scheme  into 
adjoint  MORSE  and  demonstrated  an  increase  in  efficiency  of  factors  of  4 
to  5  over  standard  adjoint  MORSE  for  a  10-cm- thick  steel  sphere.  In 
that  study  in-group  energy  biasing  was  used  for  all  energy  groups. 

In  a  recent  effort  for  the  U.  S.  Army  Ballistic  Research  Laboratory 
(BRL),  the  in-group  bias  scheme  was  implemented  in  the  BRL  version  of 
VCS,  and  some  comparisons  of  its  efficiency  were  made  for  other  steel 
and  polyethylene  configurations.  Also,  theoretical  derivations  were 
made  which  indicated  that  in-group  energy  biasing  should  always  be 
preferable  to  the  standard  MORSE  scattering  treatment  in  either  forward 
or  adjoint  MORSE  regardless  of  the  value  of  the  non-absorption 
probability  PNAB. 
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In  this  effort  a  number  of  modifications  were  made  to  the  in-group  bias 
coding  to  improve  its  efficiency  and  clarity.  More  important,  some 
additional  test  cases  were  run  which  further  demonstrated  the  advantages 
of  using  in-group  bias. 


THEORETICAL  BASIS  FOR  IN-GROUP  ENERGY  BIASING 


The  theoretical  basis  for  in-group  energy  biasing  is  derived  by 
comparing  the  analytic  sample  variance  of  the  three-group  infinite 
medium  random  walk  under  a  variety  of  possible  biasing  schemes.  Similar 
conclusions  can  be  reached  in  two  groups  with  considerably  less  algebra 
but  with  less  generality.  The  procedure  is  to  examine  the  Markov  chains 
of  all  possible  combinations  and  permutations  of  scatterings  in  three 
groups  and  to  show  that  the  scattering  estimator  scores  in  the  random 
walk  sum  to  the  theoretical  solution.  The  corresponding  sample  variance 
is  then  derived,  and  comparisons  are  made  between  the  in-group  and 
standard  sampling  schemes. 

Two  very  important  concepts  which  are  stressed  in  this  paper  are  the 
"fair  game  rule"  and  "particle  weightings".  The  "fair  game  rule"  is 
descriptive  of  the  Monte  Carlo  treatment  of  collisions.  If  a  "fair 
game"  is  played  in  simulating  the  collision,  forward  or  adjoint,  a  valid 
result  should  be  obtained.  Particle  weightings  offer  some  latitude  in 
playing  this  "fair  game",  since  tradeoff's  can  be  made  between 
probabilities  and  particle  worth. 

A  historical  example  is  appropriate  here.  Original  Monte  Carlo  codes 
treated  absorption  events  by  halting  the  random  walk  for  a  particle 
whenever  sampling  indicated  that  an  absorption  event  had  occurred. 

Later  it  was  recognized  that  it  was  more  efficient  to  carry  a  particle 
weight  and  to  treat  absorption  by  reducing  the  weight  by  the  non¬ 
absorption  probability  at  each  scatter.  Particle  histories  were  then 
terminated  by  Russian  roulette  whenever  weights  dropped  below 
predetermined  cutoffs.  This  non-absorption  treatment  avoided  losing 
important  histories  just  before  they  were  about  to  score.  In  this 
example,  a  "fair  game"  was  played  by  offsetting  the  probability  of  what 
happened  at  a  scattering  event  with  an  appropriate  change  of  particle 
weight.  This  concept  of  adjusting  particle  weights,  within  the  fair 
game  rule,  to  improve  Monte  Carlo  statistics  is  the  basis  of  Monte  Carlo 
biasing  schemes.  More  will  be  said  about  the  fair  game  rule  in  the 
infinite  medium  problem  described  below. 


Markov  Chain  Analysis  of  the  Forward  Three-Group  Infinite  Medium  Problem 

Consider  the  total  dose  deposited  in  an  infinite  medium  due  to  a  source 
of  particles  in  three  energy  groups.  The  source  is  described  by  three 
probabilities  S,,  S,,  and  S3  of  beginning  particles  in  the  three 
groups.  When  the  fnux  in  each  group  is  known,  the  dose  is  the  inner 
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product  with  the  response  function  (or  flux  to  dose  conversion  factor) 
R,,  Rg,  and  R3.  The  scattering  properties  of  the  medium  are  described 
by  total  cross  sections  in  each  group  <7^,  <72,  and  <73,  and  the 
downscatter  cross  section  matrix, 


(  <yn 

<712 
<7i3 


0 

(722 

<723 


0 

0 

C’^33 


where  <7ij  is  the  cross  section  for  scattering  from  group  i  to  group  j. 
All  upscatter  cross  sections  are  assumed  to  be  zero.  This  problem  can 
be  solved  directly  without  reference  to  Monte  Carlo  or  Markov  chains  by 
equating  the  collision  density  in  each  group  (the  product  of  the  flux 
and  the  total  cross  section  Oj  to  the  source  in  group  i)  from  the 
original  source  S,-  plus  the  scattering  source  as  shown  in  Equation  (1). 
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This  equation  can  be  solved  directly  for  the  flux  in  each  group,  and  the 
dose  can  be  obtained  by  an  inner  product  with  the  response, 


X  = 

i 

so  that 
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0 

-1 
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The  solution  of  the  above  equation  is 


■^1*^1  S\R20\2 

~  <^l\  {<^1  —  <7ll  ){(72  —  <722) 

_|_  _ 5i  R3C13 _  ^  ■^1-R3<712<^23 

(cTi  -  (7ii)(<73  -  <^33  (CTI  “  <7n)(«72  -  Cr22)(<73  -  (^33  ^ 

^  S2R2  ^  _ 52/?3<^23 _  S3R3 

O2—O22  (<^2  ~  0^22  )(«r3  —  ass)  <73—0-33 


(4) 


Notice  that  the  solution  for  the  dose  contains  seven  terms  which 
represent  the  seven  possible  means  of  scattering  from  a  source  group  to 
a  response  group.  The  first,  fifth,  and  seventh  terms  result  from 
particles  that  began  and  scored  in  the  same  group.  Each  of  these 
particles  may  have  had  zero  to  an  infinite  number  of  in-group 
scatterings.  The  second,  third  and  sixth  terms  are  the  doses  from 
particles  that  began  in  one  group,  had  zero  to  many  in-group 
scatterings,  had  one  transition  scattering  to  a  new  group  and  finally 
had  zero  to  many  in-group  scatterings  in  the  final  group.  The  fourth 
term  is  the  dose  for  particles  that  began  in  group  one,  scattered  to 
group  two,  and  then  scattered  to  group  three  with  any  number  of  in-group 
scatterings  between. 

This  same  result  can  be  derived  by  Monte  Carlo  theory  considering  the 
probabilities  and  weight  changes  of  all  possible  scatterings.  In 
standard  forward  MORSE  the  random  walk  is  set  up  as  follows:  First,  a 
source  group  is  sampled  and  the  particle  weight  is  set  to  1.0.  The 
collision  site  (which  does  not  matter  in  the  infinite  medium  problem)  is 
determined  by  sampling  an  exponential.  The  probability  of  absorption  is 
treated  by  reducing  the  particle  weight  (multiplying  the  previous  weight 
by  the  non-absorption  probability).  Then  the  probability  of  scatter  to 
each  group  is  sampled,  and  the  next  track  proceeds  in  the  new  group.  At 
each  scattering  a  score  is  made  equal  to  the  particle  weight  before  the 
collision  times  the  response  function  divided  by  the  total  cross 
section. 

When  this  score  is  made  for  each  scatter,  it  is  called  a  real  scattering 
estimator.  The  non-absorption  probability  (PNAB  in  MORSE  but  called  W 
here)  is  equal  to  the  scattering  cross  section  divided  by  the  total 
cross  section.  For  group  one  this  is 


Wx 


<7ll  +  <712  <7i3  _  ai5 

CTi  CTj 


(5) 


B-6 


Likewise,  the  group  transfer  probability  is 


Pij 


1 


(6) 


Thus,  if  a  particle  starts  and  continues  to  scatter  in  group  one,  its 
contribution  to  the  dose  is 
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(7) 


Notice  that  this  term  is  identical  to  the  first  term  in  Equation  (4). 

In  a  similar  manner  all  combinations  of  possible  sources  and  scatters 
can  be  shown  to  be  equivalent  to  terms  of  Equation  (4).  As  another 
example,  particles  that  begin  in  group  1,  transition  to  group  2  and 
finally  scatter  to  group  3  correspond  to  the  fourth  term  of  Equation  (4) 
as  follows: 
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(<Ti  —  (Til)  (<^2  ~  <^22)  (<^3  ~  0^33) 


Thus,  as  expected,  the  Markov  chain  analysis  of  the  MORSE  random  walk 
for  three  groups  agrees  identically  with  the  analytic  three-group 
solution  given  in  Equation  (4). 

In  addition  to  deriving  the  dose,  the  three-group  problem  can  be 
analyzed  for  the  sample  variance  of  real  scattering  estimator  procedure. 
The  sample  variance  V  is  derived  by  summing  the  squares  of  all  scores 
times  the  probability  of  making  each  score.  Thus,  the  sample  variance 
of  particles  that  begin  in  group  one  and  score  in  group  one,  as  in 
Equation  (7)  for  the  standard  MORSE  scattering  scheme,  is 
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(9) 


Vn 


5i  i?? 


Notice  that  all  factors  that  represent  either  scores  or  particle  weights 
are  squared  while  factors  representing  probabilities  are  not  squared. 

In  this  manner  all  seven  terms  of  the  forward  MORSE  sample  variance  may 
be  written: 


Vn 

Vi3 

^123 


V22 

V33 


V12  = 


SiRlai2(^u 


(<^1  ~  ^11<71j)(<^2  ~  Cr22<72a) 


<7j  —  (TiiOia 

_ SlRl(^l3<^la _ 

{<T^  -  CTnai,)(<r|  -  <733<73,) 

_ 5i  Rl<7i2CriaCr23(72$ _ 

(a]  -  (7n(Ju){crj  -  (T22(T2s){crl  -  crj^) 

S2R2  _  S2Rla23(72s 


O2  ~  ^22(^23 

SzRl 


V2Z  = 


(a|  -  022023){<^1  -  <7^3) 


^3  ~  ^33 


(10) 


All  terms  have  the  same  form  for  each  combination  of  transitions,  and 
the  denominator  terms  of  appear  in  each  case.  In  group  3  it 

reduces  to  033  -  0*33  because  the  scattering  cross  section  is  equivalent 
to  the  in-group  cross  section.  Sometimes  in  forward  MORSE  the 
scattering  cross  section  is  greater  than  the  total  cross  section.  This 
can  occur  when  multiplicity  is  included  as  a  pseudo-scattering  process 
such  as  with  (n,2n}  reactions  or  in  gamma  ray  pair  production.  If  the 
scattering  cross  section  is  sufficiently  larger  than  the  total  cross 
section  so  that  <7j2  -  a, .<7,,  is  near-zero,  these  terms  of  the  variance 
become  large  and  the  calculation  may  not  converge.  When  this  occurs, 
longer  run  times  may  fail  to  improve  MORSE  statistics.  Also,  answers 
may  vary  widely,  with  results  for  cases  with  the  best  statistics  tending 
to  be  deceivingly  low. 
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It  is  important  to  note  that  the  non-absorption  probability  and  group 
transfer  probabilities  in  the  problem  solution,  A,  always  occur  in 
product  form,  i.e.,  W,P,j.  This  suggests  that  the  particle  weights  and 
transfer  probabilities  can  each  be  adjusted  in  biasing  schemes  provided 
that  the  product  remains  unchanged.  Since  the  answer  a  depends  only  on 
the  product,  the  answer  will  not  be  changed.  The  variance,  however,  is 
dependent  on  the  separate  and  Pjj  terms;  thus  there  is  a  potential  in 

biasing  to  improve  che  variance. 

Biasing  in  forward  Monte  Carlo  calculations  by  modification  of  the  W, 
and  Pjj  terms,  while  retaining  a  constant  product,  is  a  powerful  tool  in 
improving  Monte  Carlo  statistics,  but  that  is  not  the  only  use  of  the 
concept.  As  will  be  seen,  the  concept  carries  over  into  adjoint  random 
walks.  First  the  product  sufficiency,  which  is  one  part  of  the  "fair 
game"  rule,  Justifies  the  current  treatment  of  group  transfers  in 
adjoint  Monte  Carlo  simulations.  Second,  it  can  be  used  for  biasing 
adjoint  Monte  Carlo  analyses  as  well  as  forward  calculations. 


Adjoint  Three-Group  Analysis 

An  especially  interesting  feature  of  the  MORSE  Monte  Carlo  code  is  that 
the  same  scattering  routines  are  used  to  track  both  forward  and  adjoint 
particles  by  using  the  transpose  of  the  scattering  cross  section  matrix 
for  adjoint  transport.  In  the  adjoint,  the  non-absorption  factor  (PNAB) 
involves  a  sum  of  the  scattering  cross  sections  for  those  groups  from 
which  scattering  could  have  come.  In  MORSE,  the  adjoint  energy  group 
indexes  are  reversed  so  that  the  highest  energy  particles  have  the 
highest  group  numbers.  However,  the  same  forward  cross  section  notation 
is  kept  here  to  facilitate  comparison  with  the  forward  walk.  Keeping 
the  same  forward  cross  section  group  number  notation,  the  adjoint 
scattering  cross  section  for  group  three  becomes 


<733  =  <7-33  +  a23  +  <^13 


(11) 


Since  033  and  0,3  are  not  a  part  of  the  group  three  total  cross  section 
<73,  this  adjoint  scattering  sum  can  be  much  different  from  the  total 
cross  section.  For  broad  neutron  groups  in  the  inelastic  level  regime 
where  there  cam  be  many  higher  energy  groups  that  scatter  into  it,  the 
adjoint  scattering  sum  can  be  much  greater  than  the  total  cross  section 
The  adjoint  non-absorption  factor  and  tne  scattering  probabilities  then 
become 


12: 
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and 


t 


(13) 


where  the  asterisk  indicates  the  adjoint  summation  of  the  scattering 
cross  section  rather  than  the  forward  summation.  Note  that  unlike  the 
forward  scattering  cross  section,  the  adjoint  scattering  cross  section 
is  not  a  physical  quantity.  In  fact  it  depends  more  upon  the  energy 
group  structure  than  the  physical  scattering  process. 

Clearly  there  is  no  direct  physical  basis,  as  with  forward  Monte  Carlo 
Equations  (5)  and  (6),  for  using  the  above  weight  changes  and  transfer 
probabilities  for  adjoint  Monte  Carlo.  However,  the  product  of  the 
WjPjj  in  Equations  (12)  and  (13)  is  equivalent  to  that  for  the  forward, 
and  the  adjoint  random  walk  gets  the  same  answer  as  the  forward  walk. 

In  this  case,  the  a*js  has  no  physical  meaning,  but  it  has  the 
advantages  of  giving  transfer  probabilities  Pjj  which  automatically  sum 
to  1.0  and  of  following  the  adjoint  calculation  format  in  which  the 
transpose  of  the  cross  section  matrix  is  used.  However,  as  will  be  seen 
below,  the  non-physical  nature  of  the  adjoint  scattering  cross  section 
(Equation  11)  can  cause  accuracy  problems  in  adjoint  Monte  Carlo. 

Consider  the  three-group  infinite  medium  Markov  chain.  As  mentioned 
above,  the  adjoint  random  walk  will  get  the  same  dose  as  the  forward 
walk.  However,  the  sample  variance  of  the  standard  MORSE  adjoint  walk, 
although  similar  in  form  to  the  forward  sample  variance,  is  quite 
different.  When  the  particle  weights  are  squared  and  the  probabilities 
are  not  squared,  the  non-physical  adjoint  scattering  cross  section  a*js 
does  not  cancel 


W]  P.,  = 


}• 


(14) 


and  the  seven  terms  of  the  standard 


adjoint  sample  variance  become 
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^'321 


RiSf 


al  -  £Tii 


^25?ai2tT;,  ^ 

{aj  -  a22(T2s)i(^l  -  ^ 

_ R2S]a22ols _ 

[aj  -  CT33a^J(a|  -  022(^2^) 

_ fi35?<723<73,<7l2<723 _ 
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V^33 


RzSl 

-  (^33(^3, 

R3Sf(ri3(T33 

(cr2  -  (733(7*J(a2  -  af,  ) 
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The  form  of  these  terms  is  very  similar  to  the  forward  sample  variance 
in  Equation  (10)  including  terms  like  -  a^ja'js  in  the  denominators. 
Because  of  the  physical  nature  of  the  forward  scattering  cross  section, 
the  forward  MORSE  random  walk  is  nearly  always  well  behaved.  However, 
since  the  adjoint  scattering  cross  section  a  j,  is  often  much  greater 
than  the  total  cross  section  aj,  these  terms  can  prevent  the  random  walk 
from  converging.  In  fact  in  the  DLC-31  Data  Library  Collection^, 
adjoint  iron  cross  sections  have  four  groups  (all  in  the  vicinity  of  1 
MeV  neutrons)  where 


<7*  >  a* 


(16) 


Thus,  infinite  medium  adjoint  random  walk  for  the  iron  with  the  DLC-31 
cross  sections  will  not  converge.  More  generally,  this  occurs  in 
adjoint  MORSE  whenever 


P„  PNAB,  >  1.0 


(17) 


It  is  perhaps  fortunate  that  the  seriousness  of  this  problem  is  not 
always  observed.  For  realistic  problems  not  involving  deep  penetration 
in  thick  media,  reasonable  answers  are  usually  obtained,  although  with 
reduced  efficiency. 


In-Group  Energy  Bias  Analysis 

The  major  objective  of  the  in-group  biasing  scheme  is  to  eliminate  the 
instability  in  the  variance  for  random  walks,  i.e.,  to  eliminate  the  (7,2 
-  terms  which  could  be  zero  or  negative  for  physically  realistic 

cross  section  sets.  Although  not  obvious  from  the  foregoing,  this  is 
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equivalent  to  eliminating  the  problem  in  which  the  weight  of  an  adjoint 
particle  can  grow  unbounded  by  many  repeated  in-group  scatterings. 

The  approach  is  to  utilize  the  fair  game  constraint  in  which  the  product 
WjPjj  is  forced  to  remain  constant  while  adjustments  to  certain  Wj  are 
made.  Specifically,  as  mentioned  in  the  background  section,  the  weight 
of  a  particle  undergoing  in-group  scattering  is  forced  to  remain 
unchanged.  This  "starting  condition",  along  with  the  constant  W,Pjj 
"fair  game  rule"  and  a  couple  of  other  physical  requirements  form  a 
recursion-relation-like  formulation  which  redefines  all  the  W,  and  P^j. 
The  result  is  the  in-group  bias  formulation,  the  derivation  and  analysis 
of  which  are  described  below. 

In  the  standard  (not  in-group  biased)  formulation,  the  weight  change  Wj 
was  always  equal  to  PNAB  for  group  i.  For  in-group  bias,  this  parameter 
is  generalized  to  also  have  j  dependence.  Thus  the  fair  game  product 
rule  becomes,  utilizing  Equations  (12)  and  (13)  (for  the  standard 
adjoint  MORSE), 


(18) 


For  in-group  scattering  for  groups  other  than  group  1,  it  was  specified 
that  there  would  be  no  weight  change  (W  >  1);  hence  from  Equation  (18), 


WO;  =  1.0 


ajid  Pjj  = 


(19) 


for  in-group  scattering  other  than  group  1.  An  exception  is  made  for 
group  1,  which,  being  the  highest  energy  group,  has  no  outscattering  so 
that  P,,  must  be  1.0.  Thus  from  Equation  (18)  for  group  1, 

Pn  =  1.0  and  Wu  =  —  (20) 

<^1 


The  above  expressions  specify  the  P  and  W  for  in-group  scattering.  The 
out-of-group  scattering  P,.j  and  Wjj  are  specified  by  the  physical 
requirement  that  the  scattering  probabilities  must  sum  to  1.0  and  by  the 
desirability  of  having  the  other  transfer  probabilities  be  proportional 
to  (Tjj.  The  result  is 


*  ^  Pi} 


-  ^}}) 


and  Wij 


(21) 
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Thus,  in  three  groups  the  adjoint  in-group  scattering  and  weight  factors 
are  specified  as 


(  ZiZ. 
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P  = 


^73(03  — Oxn) 


1^77 

07 
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I  gn(g3-g3a) 
\  <'3(^J3+<^13) 


<^7-077 
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and 
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0  0  'i 


w  = 


g23  +  gl3  J 

<T3  — <733 
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I  g33  +  gia 
\  <73— ff33 


07  —  077 


£IX 
o\  ) 


(23) 


From  the  probability  and  weight  table  the  total  dose  can  be  derived  just 
as  in  the  standard  adjoint  case.  As  expected  because  the  product  of 
weight  and  probability  is  the  same  for  both  in-group  and  standard  MORSE, 
the  dose  is  the  same  (Equation  4).  But  the  weight  squared  times  the 
probability  is  different,  making  the  in-group  biased  sample  variance 
terms,  given  below,  very  different  from  the  standard  adjoint  sample 
variance  of  Equation  (15). 
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(24) 
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In  the  above  terms,  a11  the  denominators  are  positive,  non-zero,  and 
well  behaved  for  physical  cross  sections.  The  possible  infinite 
variance  terms  of  the  standard  adjoint  MORSE  have  been  eliminated. 

At  this  point  the  choice  of  no  weight  change  on  in-group  scattering  may 
seem  somewhat  arbitrary.  In  fact,  this  choice  can  be  shown  to  be  the 
optimum.  When  the  in-group  weight  changes  of  1.0  in  the  weight  and 
probability  tables  (Equations  22  and  23)  are  set  to  variables,  new 
tables  are  derived. 
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and 
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When  these  probabilities  are  summed  and  multiplied  by  the  weights 
squared  over  all  seven  transition  possibilities,  the  terms  all  have  the 
form  of 


X 

(xaa  —  <733)(<73  —  1(733) 


or 


_ y _ 

(y(72  —  022)  ((72  ~  y<722) 


(27) 


The  general  features  of  the  above  functions  are  shown  in  Figure  B-1. 
For  the  region  a-^^/oy  <  x  <,  i7j/ajj  of  interest,  the  terms  are  minimized 
by  a  value  of  x  -  1.0  regardless  of  the  value  of  or 


1 

((73  -  (733)^ 


or 


1 

(<72  —  a22)^ 


(28) 
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Thus,  setting  the  in-group  weight  change  factor  to  1.0  appears  to  be  an 
optimum  In-group  biasing  scheme. 

Having  concluded  that  a  weight  change  factor  of  1.0  is  optimum  for  the 
in-group  biasing  scheme,  equivalent  sample  variance  terms  from  standard 
adjoint  and  in-group  adjoint  MORSE  (Equations  15  and  24)  are  now 
compared. 


X 

{xa,  -  <7u)  (<7,  -  X<7„) 


Figure  B-1.  Characteristics  of  functions  in  Equation  (27). 
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standard  Adjoint 


In-group  Adjoint 
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or 


ol  -  <r33(^3j 


<723  +  <^13  _  ^3a  ~  ^33 

(<73  -<733)2  (<^3-  <^33)^ 


(30) 


Analysis  of  the  above  terms  Indicates  that  the  in-group  adjoint  variance 
Is  always  less  than  the  standard  adjoint  variance  except  at  (7{-(7*{s, 
where  the  variances  are  equal.  Also,  the  In-group  variances  are  better 
behaved  for  physically  valid  cross  section  values,  I.e.,  a*i*  ^  <7jj,  tr,-  > 
<7,,,  and  no  negative  cross  sections.  This  suggests  that  the  In-group 
biasing  technique  Is  generally  superior  to  the  standard  methodology  for 
MORSE  adjoint  analyses  with  no  upscattering.  Although  In-group  bias  has 
not  been  exercised  with  forward  MORSE,  It  appears  from  this  analysis 
that  In-group  bias  would  be  superior  to  the  standard  treatment  in 
forward  Monte  Carlo  as  well  as  adjoint  Monte  Carlo. 


IN-eROUP  BIASING  CODE  MODIFICATIONS  FOR  MORSE 


MORSE  Is  easily  modified  to  Incorporate  In-group  energy  bias. 

Scattering  in  MORSE  is  handled  In  subroutine  COLISN  using  data  in  the 
form  of  the  non-absorption  factor  PNAB^  and  the  normalized  scattering 
probabilities  Pjj  which  give  the  probability  of  scatcering  to  group  j 
provided  that  a  scattering  has  occurred  in  group  1.  The  original  coding 
is  very  simple  in  that  the  particle  weight  WATE  is  multiplied  by  PNABj, 
where  i  Is  the  group  coming  Into  the  collision,  and  then  a  random  number 
is  compared  with  the  probabilities  Pjj  to  select  the  outgoing  group. 

This  sampling  scheme  Is  easily  modified  to  use  in-group  scattering. 
Define  a  bias  factor  F  as  follows: 
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II 

II 

F  =  1.0 

II 

F  =  PNAB, 

* 

^  1  -  P„PNAB, 

=  1  - 

The  same  sampling  coding  is  used  except  that  the  random  number  is 
compared  to  FP^j  instead  of  simply  P^j  as  before.  After  the  outgoing 
group  has  been  sampled,  the  weight  is  corrected  by 


WATE  -  WATE  •  PNAB/F 


the  above  modifications  have  been  implemented  in  MASH  with  a  switch 
which  permits  in-group  biasing  to  be  used  on  option.  The  implementation 
correctly  treats  in-group  biasing  with  or  without  E  biasing,  and 
includes  logic  for  splitting  whenever  WATE  exceeds  WTMAX.  Splitting  in 
MORSE  is  normally  performed  in  subroutine  TESTW  when  a  particle's  weight 
is  above  an  importance  region-  and  energy-dependent  maximum  weight.  The 
particle's  weight  is  split  into  halves  and  an  identical  particle  is 
written  to  the  secondary  bank.  When  the  weight  increase  occurs  at 
upscatter,  the  excessive  weight  is  not  identified  until  entering 
subroutine  TESTW.  Thus,  all  the  splitting  secondaries  will  have  the 
same  energy  group  and  the  same  direction  cosines.  They  will  be 
essentially  the  same  particle.  This  has  been  significantly  improved  by 
playing  the  splitting  game  in  subroutine  COLISN  and  actually  resampling 
the  upscatter  distribution  for  each  splitting  secondary  particle.  In 
this  manner  each  secondary  is  independent  of  the  others  so  that  this 
important  probability  transition  is  much  more  completely  represented. 


DEMONSTRATION  CALCULATIONS 


A  number  of  demonstration  calculations  have  been  performed  to  compare 
VCS  or  MORSE  results  using  in-group  energy  bias  with  results  using  the 
standard  methodology.  Reference  6  describes  some  results  obtained  by 
Siegfried  Stuker  of  Wehrwissenschaftliche  Dienststelle  der  Bundeswehr 
fur  ABC-Schutz  (WWD),  who  tested  the  treatment  in  a  series  of  10  cm  iron 
sphere  calculations.  Stuker  determined  that  in-group  biasing  made  a 
significant  improvement  when  it  was  applied  to  energy  groups  with  PNAB 
greater  than  2.0*.  He  also  discovered  further  improvement  when  in-group 
biasing  was  used  for  all  energy  groups  including  groups  with  PNAB  less 
than  one. 
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In  addition  to  the  calculations  performed  by  Stuker,  SAIC  has  performed 
calculations  on  several  different  test  geometries  Including  an  Iron 
sphere,  a  cubical  box,  and  a  steel  shell  resembling  a  van-like  vehicle. 
These  results  are  discussed  In  Reference  1.  The  results  for  the  Iron 
sphere  were  calculated  In  a  previous  effort  and  are  taken  from  Reference 

6.  The  results  for  the  van-like  vehicle  have  been  described  In 
Reference  5. 
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APPENDIX  C 


THE  GIFTS  GEOMETRY  PACKAGE 


THE  GIFTS  GEOHETRY  PACKAGE* 


BACKGROUND 


One  of  the  major  objectives  of  earlier  efforts  in  the  development  of  the 
Vehicle  Code  System  (VCS)’*^  was  to  create  a  version  of  VCS  which  could 
treat  vehicle  models  developed  by  the  Ballistic  Research  Laboratory 
(BRL).  BRL,  a  major  user  of  VCS,  has  developed  detailed  combinatorial 
geometry  models  of  a  number  of  armored  vehicles.  In  order  to  facilitate 
the  vehicle  modeling  effort,  which  often  takes  a  significant  fraction  of 
a  person  year  per  vehicle,  BRL  has  developed  a  number  of  hardware  and 
software  tools  and  has  extended  the  combinatorial  geometry  models  of 
their  codes  (other  than  VCS)  to  treat  a  number  of  new  solid  "body" 
types.  The  result  is  that  BRL  has  a  number  of  vehicle  models  which 
could  not  be  analyzed  by  VCS  unless  modified,  at  considerable  time  and 
dollar  costs,  for  use  by  VCS. 

In  1976-1977  BRL  removed  some  of  the  geometry  incompatibilities  by 
installing  the  geometry  package  from  the  BRL  GIFT  graphics  code^*^  into 
the  VCS  MORSE  code.  BRL  named  the  result  "MIFT"  for  MORSE  with  GIFT®. 

A  review  of  the  MIFT,  VCS,  GIFT,  and  GIFTS  codes  was  performed  by 
Science  Applications  International  Corporation  (SAIC)  to  evaluate  and 
compare  the  geometry  models  and  to  determine  the  best  way  to  upgrade  the 
geometry  treatment  in  VCS.  The  GIFTS  geometry  treatment  was  found  to  be 
superior  to  the  VCS  combinatorial  geometry  and  older  GIFT  treatment  in 
several  ways,  including  the  number  of  solid  "body"  types,  diagnostics 
and  checks  of  input  data,  and  a  tracking  method  which  could  correctly 
treat  overlapping  or  undefined  regions  in  the  geometry.  Drawbacks 
relative  to  the  older  VCS  combinatorial  geometry  logic  were  a  slightly 
larger  computer  run  time  for  similar  problems  and  increased  size  and 
complexity  of  the  resulting  VCS  code.  The  GIFTS  geometry  package  was 
first  implemented  in  the  MIFT  version  of  the  VCS  MORSE  code  and  called 
MIFT2*.  The  GIFTS  geometry  package  has  since  been  implemented  in  the 
current  MASH  version  of  the  MORSE  code.  The  bulk  of  this  appendix  was 
extracted  from  the  GIFT  document^  to  give  some  background  information  on 
the  GIFTS  geometry  package  and  has  been  included  in  this  manual  for 
completeness. 


'Lawrence  W.  Bain,  Jr.  and  Mathew  J.  Reisinger,  "The  GIFT  Code  User 
Manual;  Volume  I.  Introduction  and  Input  Requirements,"  BRL  1802, 
Ballistic  Research  Laboratory,  (July  197S). 
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INTRODUCTION 


GIFTS  geometry  is  similar  to  the  older  MORSE  combinatorial  geometry  in 
that  specified  geometric  shapes  (spheres,  cylinders,  parallelepipeds, 
etc.)  may  be  combined  to  describe  complex  geometry  configurations.  As 
with  MORSE  combinatorial  geometry,  a  GIFTS  geometry  file  is  comprised 
largely  of  a  "body"  or  "solids"  table  followed  by  a  "zones"  or  "region" 
table  in  which  the  bodies  are  combined  by  (+),  (-),  or  (OR)  operators. 
In  GIFTS  geometry,  however,  "bodies"  (MORSE  terminology)  are  called 
"solids"  and  "zones"  (MORSE  terminology)  are  called  "regions".  In  the 
GIFTS  graphics  code  there  is  no  equivalent  to  the  "regions"  as  used  in 
MORSE.  In  MASH,  where  the  term  "region"  could  have  a  double  meaning, 
the  MORSE  equivalent  of  "region"  is  called  "importance  region"  to 
minimize  any  confusion.  In  this  appendix  the  GIFTS  terminology,  i.e., 
solids  and  regions,  equivalent  to  bodies  and  zones  in  MORSE,  will  be 
used. 


TARGET  DESCRIPTION  DATA 


Target  description  data  defines  or  models  the  three-dimensional  shape 
and  space  of  a  simple  or  complex  physical  structure  -  the  target.  The 
GIFTS  geometry  package  uses  a  "combinatorial  geometry"  or  "COM-GEOM" 
target  description  technique.  This  technique  defines  the  shape  and 
space  of  the  components  of  the  target  as  a  single  geometric  "solid"  (a 
box,  a  sphere,  a  cylinder,  etc.),  or  the  "combination"  of  several 
geometric  solids.  The  parameters  which  define  the  spatial  locations  of 
the  geometric  solids  used  to  model  the  components  of  the  target  are 
recorded  in  the  "Solid  Table."  Each  component  (region)  of  the  target  is 
defined  as  a  single  solid  or  a  "combination"  of  solids  in  the  "Region 
Table." 

The  Solid  and  the  Region  Tables,  and  the  other  input  data  required  to 
create  the  target  description  data  for  the  GIFTS  geometry  package  are 
defined  in  the  following  sections  of  this  appendix. 


PRELIMINARY  STEPS 


The  first  step  to  model  a  target  by  any  three-dimensional  target 
description  technique  is  to  obtain  engineering  drawings,  reports,  or  any 
other  data  which  exhibit  the  physical  dimensions  of  the  target.  The 
next  step  is  to  define  a  reference  point  on  the  target:  the  origin 
point  (0)  of  an  X,Y,Z  right-handed  coordinate  system.  For  example,  for 
tanks,  the  intersection  of  the  turret  datum  lire  and  the  center  lines  of 
the  turret  is  usually  selected  as  the  origin  point.  The  parameters 
within  the  target  description  data  may  be  recorded  in  inches  or 
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centimeters  or  any  other  unit  of  measure.  For  example,  the  X.Y,Z 
coordinate  values  for  a  point  "P"  can  be  given  as  (X  -  1.4,  Y  «  1.0,  Z  = 
-1.0)  inches  or  (X  -  3.5,  Y  «  2.5,  Z  -  -2.5)  centimeters  from  the  origin 
point  (X,Y,Z  »  0).  Every  parameter  recorded  in  the  target  description 
data  must  be  measured  in  the  same  unit  of  measure. 


SOLIDS 


Table  C-1  lists  the  twenty  geometric  solids  used  by  the  GIFTS  geometry 
package.  The  letters  under  the  "Symbol",  column  are  the  alphanumeric 
designation  used  in  this  report  and  on  the  input  cards  for  the  solid. 

The  "Figure"  column  lists  the  figure(s)  where  the  input  data  for  the 
solid  is  described. 

Each  solid  in  a  target  description  is  identified  by  a  unique  number,  1, 
2,  3,  etc.  This  permits  the  space  of  any  solid  to  be  distinguished  from 
the  space  of  any  other  solid.  The  parameters  required  to  define  the 
twenty  solids  are  different.  The  parameters  can,  however,  be  classified 
as  being  either  a  "vertex  point,"  a  "vector,"  or  a  "scalar." 

A  vertex  point  is  a  point  defined  by  its  X,  Y  and  Z  measurements 
(coordinate  values)  from  the  target  reference  or  origin  (0)  point.  For 
each  of  the  twenty  types  of  solids,  at  least  one  vertex  point  is  used  to 
locate  the  position  of  the  solid  in  the  referenced  X,Y,Z  space.  For 
example,  "V"  is  the  vertex  point  for  a  box,  while  the  centerpoint  "C"  is 
the  vertex  point  for  the  sphere  solid.  Within  this  report,  the  dash  (-) 
mark  over  a  letter  (V,  C,  H,  etc.)  will  be  used  to  indicate  an  X,  Y  and 
Z  measurement.) 

Certain  solids  require  vector  parameters  to  define  the  three-dimensional 
shape  and  space  that  they  occupy.  The  BOX  requires  three  vectors,  H,  W, 
D,  which  respectively  represent  the  height,  width,  and  depth  of  the  BOX. 
Vectors  also  have  an  X,  Y  and  Z  measurement;  however,  the  meosurements 
of  vectors  are  taken  from  the  vertex  point  of  the  solid  rather  than  the 
target  reference  or  origin  point.  The  X,Y,Z  measurements  of  H,  W  and  0 
vectors  are  taken  from  V,  not  the  origin  (0)  point. 

Some  solids  require  scalar  parameters  to  define  their  shape  and  space. 
Scalars  are  single  numeric  values.  An  example  of  a  scalar  is  the  radius 
parameter  used  to  define  the  SPH  solid. 

Figures  C-1  to  C-20  illustrate  and  define  the  parameters  and  card  input 
formats  for  each  of  the  20  solid  types  used  by  the  GIFTS  geometry 
package.  The  comments  on  these  figures  must  be  given  careful  attention 
because  the  difference  between  certain  solids  is  slight. 
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Table  C-1.  List  of  20  Geometric  Solids 
used  by  the  GIFTS  Geometry  Package. 


Solid  Name 

Symbol 

Figure 

1. 

Arbitrary  Convex  Polyhedron,  4  vertex 

ARB4 

C-1 

2. 

Arbitrary  Convex  Polyhedron,  5  vertex 

ARBS 

C-2 

3. 

Arbitrary  Convex  Polyhedron,  6  vertex 

ARB6 

C-3 

4. 

Arbitrary  Convex  Polyhedron,  7  vertex 

ARB7 

C-4 

5. 

Arbitrary  Convex  Polyhedron,  8  vertex 

ARB8 

C-5 

6. 

Arbitrary  Convex  Polyhedron,  N  vertex 

ARBN 

C-6 

■t 
/ . 

Triangular  Surfaced  Polyhedrons 

ARS 

C-7 

8. 

Box 

BOX 

C-8 

9. 

Ellipsoid  of  Revolution 

ELL 

C-9 

10. 

Ellipsoid  with  Elliptical  Cross  Section 

ELL  G 

C-10 

11. 

Half  Space 

HAF 

C-11 

12. 

Right  Angle  Wedge 

RAW 

C-12 

13. 

Right  Circular  Cylinder 

RCC 

C-13 

14. 

Right  Elliptical  Cylinder 

REC 

C-14 

15. 

Rectangular  Parallelepiped 

RPP 

C-15 

16. 

Sphere 

SPH 

C-16 

17. 

Truncated  Elliptical  Cone 

TEC 

C-17 

18. 

Truncated  General  Cone 

TGC 

C-18 

19. 

Torus 

TOR 

C-19 

20. 

Truncated  Right  Angle  Cone 

TRC 

C-20 
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SPECIFY:  The  X,  Y,  Z  coordinates  of  the  four  vertices  of  the  Polyhedron. 
Vertices  are  the  ordinal  numbers  1  to  4  on  the  figure. 

NOTES:  This  form  of  the  ARB  has  four  ("4"  in  card  column  9)  vertices 

and  four  faces  each  def1;ied  by  three  vertices.  The  GIFT  code 
generates  the  four  faces  as:  123,  412,  423,  431. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

ARB 

1 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1  of  2 

1 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

2  of  2 

Figure  C-1.  Four-faced,  four  vertices,  convex  polyhedron  (ARB4)  input. 
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SPECIFY:  The  X,  Y,  Z  coordinates  of  the  five  vertices  of  the  polyhedron. 
Vertices  are  the  ordinal  numbers  1  to  5  on  the  figure. 

NOTES:  This  form  of  the  ARB  has  five  ("5"  in  card  column  9)  vertices 

and  five  faces  -  one  defined  by  four  vertices,  four  faces 
defined  by  three  vertices.  The  GIFT  code  generates  the 
five  faces  as:  1234,  512,  523,  534,  541 
Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

IBM 

ARB 

5 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1  of  3 

Solid 

Number 

1 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

2  of  3 

Solid 

Number 

1 

X5 

Y5 

Z5 

3  of  3 

Figure  C-2.  Five-faced,  five  vertices,  convex  polyhedron  (ARBS)  input. 
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SPECIFY: 


The  X,  Y,  Z  coordinates  of  the  six  vertices  of  the  polyhedron. 
Vertices  are  the  ordinal  numbers  1  to  6  on  the  figure. 


NOTES:  This  form  of  the  ARB  has  six  ("6"  in  card  column  9)  vertices 

and  five  faces  -  three  faces  are  defined  by  four  vertices, 
two  faces  defined  by  three  vertices.  The  GIFT  code  generates 
the  six  faces  as:  1234,  2365,  1564,  512,  634. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

IBM 

ARB 

6 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1  of  3 

Sol  id 
Number 

1 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

2  of  3 

Sol  id 
Number 

1 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

3  of  3 

Figure  C-3. 


Five-faced,  six  vertices,  convex  polyhedron  (ARB6} 


input. 
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SPECIFY; 


The  X,  Y,  Z  coordinates  of  the  seven  vertices  of  the  polyhedron. 
Vertices  are  the  ordinal  number  1  to  7  on  the  figure. 


NOTES: 


This  form  of  the  ARB  has  seven  ("7"  in  card  column  9)  vertices 
and  six  faces  -  four  faces  defined  by  four  vertices,  two  faces 
defined  by  three  vertices  {triangular  faces).  The  GIFT  code 
generates  the  six  faces  as:  1234,  567,  145,  2376,  1265,  4375. 
Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

r 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

IBM 

ARB 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1  of  4 

IBM 

1 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

2  of  4 

Sol  id 
Number 

1 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

3  of  4 

Sol  id 
Number 

1 

X7 

Y7 

17 

4  of  4 

Figure  C-4. 


Six-faced,  seven  vertices,  convex  polyhedron  (ARB7)  input. 
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SPECIFY:  The  X,  Y,  Z  coordinates  of  the  eight  vertices  of  the  Polyhedron. 
Vertices  are  the  ordinal  numbers  1  to  8  on  the  figure. 


NOTES:  This  form  of  the  ARB  has  eight  ("8"  in  card  column  9)  vertices 

and  six  faces  each  defined  by  four  vertices. 

The  GIFT  code  generates  the  six  faces  as: 

1234,  5678,  1584,  2376,  1265,  and  4378. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

ARB 

8 

XI 

Y1 

Z1 

X2 

Y2 

Z2 

1  of  4 

Sol  id 
Number 

1 

X3 

Y3 

Z3 

X4 

Y4 

Z4 

2  of  4 

Solid 

Number 

1 

X5 

Y5 

Z5 

X6 

Y6 

Z6 

3  of  4 

Sol  id 
Number 

1 

X7 

Y7 

17 

X8 

Y8 

Z8 

4  of  4 

Figure  C-5.  Six-faces,  eight  vertices,  convex  polyhedron  {ARB8)  input. 
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SPECIFY:  Bounding  planes  by  any  or  all  of  three  ways:  points, 

equations,  or  point  and  vector  normal  to  the  plane. 

DEFINITIONS:  NPT  -  number  of  points 

NPE  *  number  of  faces  defined  by  3  points 
NEQ  «  number  of  faces  defined  by  equation 
NAE  *  number  of  faces  defined  by  point  and  azimuth 
and  elevation  of  vector  normal  to  plane 
A,B,C,D  -  plane  equation  coefficients,  AX  +  BY  +  CZ  -  D 
AZ  -  azimuthal  angle,  degrees 
EL  -  elevation  angle,  degrees 
PN  ■  point  number 

NOTES:  The  defined  faces  must  form  a  totally  enclosed  region. 

This  ARB  has  the  letter  "N"  in  column  9. 

Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO)  except  faces 
input  on  [10X,6  (14,  213),  AlO]  format. 


CARO  COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Sol  id 
Number 

ARB 

N 

NPT 

NPE 

NEQ 

NAE 

1  of  N 

Solid 

Number 

1 

1 

XI 

Y1 

Z1 

X2 

Y2 

etc. 

2  of  N 

Sol  id 
Number 

■ 

1 

FACEl,  FACE2,  FACE3,  etc.  on 
lOX,  6(14,  213)  format 

as  needed 
for  NPE>0 

Sol  id 
Number 

1 

1 

Al 

B1 

Cl 

D1 

(blank) 

(blank) 

as  needed 
for  NEQ>0 

Sol  id 
Number 

■ 

1 

AZl 

ELI 

PNl 

AZ2 

EL2 

PN2 

as  needed 
for  NAE>0 

Figure  C-6.  N-faces,  convex  polyhedron  (ARBN)  input. 
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CURVE  1- 


■-;1- 
^  I 


^  I  ✓ 


>1 
I 


I 


-;1 


i  ^ 
✓  I  X 


CURVE  2 

CURVE  3 
CURVE  4 


SPECIFY:  The  X,  Y,  Z  coordinate  values  of  the  vertices  of  the  concave 
or  convex  polyhedron.  Order  and  record  of  the  vertices  by 
the  number  of  curves  (M)  and  number  of  points  per  curve  (N) 
system. 

NOTES:  The  purpose  of  this  solid  type  is  to  permit  the  easy  conversion 

and  use  of  target  description  data  from  other  BRL  codes.  BRL 
recommends  that  polyhedrons  be  modeled  as  a  "combination"  of 
ARB's  4,  5,  6,  7,  and  8's.  The  sample  polyhedron  has  10  unique 
vertices  (1,  2,  3  ...  10);  however,  M=4,  N=5,  and  4x5  or  20 

vertices  are  required  and  recorded  to  generate  the  triangular 
faces  of  this  polyhedron.  The  order  is  illustrated  by  the  M,N 
matrix  above  in  which  the  vertices  of  the  generated  triangle 
faces  are  connected  by  dashes  (-  -).  Each  new  curve  begins  on 
a  new  card:  When  N  is  odd,  the  card  containing  the  last 
recorded  point  of  a  curve  is  followed  by  blanks  in  card 
columns  41-70. 


Figure  C-7.  Triangular  surfaced  (ARS)  polyhedron  input. 
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CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Sol  id 
Number 

ARS 

M 

N 

1  of  n 

Solid 

Number 

■ 

X(l,l) 

Y(l,l) 

X(l,2) 

Y(l,2) 

Z(l,2) 

2  of  n 

• 

• 

• 

■ 

X(1,N) 

Y(l.N) 

Z(1,N) 

1+(N+1)  of  n 
2 

Solid 

Number 

■ 

X(2,l) 

Y(2,l) 

Z{2,1) 

X(2,2) 

Y(2,2) 

Z(2,2) 

• 

• 

• 

Sol  id 
Number 

■ 

X(M,1) 

Y(M,1) 

Z{M,1) 

X(M,2) 

Y(M,2) 

Z(M,2) 

• 

• 

Sol  id 
Number 

1 

X(M,N) 

Y(M,N) 

Z(M,N) 

n=l  +  M(N+1) 

2 

Figure  C-7.  Triangular  surfaces  (ARS)  polyhedron  input  (Continued). 
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SPECIFY:  The  vertex  (V)  at  one  of  the  corners  by  giving  the  X,  Y,  Z 
coordinates.  The  X,  Y,  Z  components  of  the  three  mutually 
perpendicular  vectors  (H,  W,  D)  from  the  vertex  point  V, 
representing  the  height,  width,  and  depth  of  the  box. 

NOTES:  The  box  may  be  arbitrarily  oriented  while  the  RPP  must  be 

parallel  to  the  reference  coordinate  axes.  The  vectors  H,  W, 
and  D  may  be  interchanged  on  the  card  input. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Sol  id 
Number 

BOX 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1  of  2 

Solid 

Number 

Dz 

2  of  2 

Figure  C-8.  Box  (BOX)  input. 
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SPECIFY:  The  X,  Y,  Z  coordinates  of  the  vertex  V  at  the  center  of  the 
major  axis,  the  vector  A  defining  the  semi -major  axis,  and 
the  scalar  R  denoting  the  radius  of  the  circular  section 
taken  at  the  center  point  V. 

NOTES:  Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

ELL 

Vx 

vy 

Vz 

Ax 

Ay 

Az 

1  of  2 

|B|M 

R 

2  of  2 

Figure  C-9.  Ellipsoid  of  revolution  (ELL)  input. 


C-15 


ORNL-DWG  90M-1187S 


SPECIFY:  The  X,  Y,  Z  coordinates  of  the  vertex  V  at  the  center  of  the 
major  axis,  the  vector  A  defining  the  semi-major  axis,  and 
vectors  B  and  C  defining  serai -minor  axes. 

NOTES:  The  letter  "G"  in  card  column  "9"  denotes  the  second  ELL 

input  option.  Vectors  A,  B,  and  C  must  be  perpendicular. 
Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  Al,  IX,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

9 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

ELL 

G 

Vx 

Vy 

Vz 

Ax 

Ay 

Az 

1  of  2 

Solid 

Number 

1 

Bx 

By 

Bz 

Cx 

cy 

Cz 

2  of  2 

Figure  C-10.  Input  for  ellipsoid  with  elliptical  cross  section  (ELL  G). 


C-16 


ORNL-OWG90M-11865 


SPECIFY:  Coefficients  A,  B,  C  and  D  of  plane  defined  by  the  equation 
AX  +  BY  +  CZ  -  D. 

NOTES:  A,  B,  C  can  be  viewed  as  vectors  which  point  away  from  the 

desired  space.  Example:  for  A=B=D=0  and  C=l,  plane  is  Z=0. 

C-1  points  away  from  desired  space;  hence  desired  space  is  Z<0. 
Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

HAF 

A 

B 

C 

D 

1  of  1 

Figure  C-11.  Half  space  (HAF)  input. 


C-17 


ORNL-DWG90M-11874 


SPECIFY: 


The  vertex  (V)  at  one  of  the  right-angled  corners  by  giving 
the  X,  Y,  and  Z  coordinate.  The  components  of  the  three 
mutually  perpendicular  vectors  (H,  W,  D),  of  which  two  (H,  W) 
are  the  legs  of  the  right  triangle  formed  while  the  third  (D) 
is  the  depth  of  the  wedge. 


NOTES:  The  two  legs  H,  W  may  be  interchanged  on  card  input, 

but  the  D  vector  must  remain  in  position  shown. 

Card  Columns  71-80  may  be  used  for  comment:. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

■ 

RAW 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1  of  2 

Sol  id 
Number 

Wx 

Wy 

Wz 

Dx 

Dy 

Dz 

2  of  2 

Figure  C-12. 


Right  angle  wedge  (RAW)  input. 


C-18 


ORNL-DWG  90M-11873 


SPECIFY:  The  vertex  point  V  at  the  center  of  one  base,  height  vector  H 
and  scalar  R  denoting  the  base  radius. 

NOTES:  Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

HBfl 

RCC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1  of  2 

Solid 

Number 

R 

2  of  2 

Figure  C-13.  Right  circular  cylinder  (RCC)  input. 


C-19 


ORNL-OWGgOM-11867 


SPECIFY:  The  X,  Y,  Z  coordinates  of  the  center  of  the  base  ellipse  V, 
height  vector  H,  and  vectors  A  and  B  in  the  base  plane 
defining  the  semi -major  and  semi -minor  axes,  respectively. 

NOTES:  Card  Columns  7i-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

REC 

Vx 

Vy 

Vz 

Hx 

Hy 

Hz 

1  of  2 

Sol  id 
Number 

Ax 

Ay 

Az 

6x 

By 

Bz 

2  of  2 

Figure  C-14. 


Right  elliptical  cylinder  (REC)  input. 


C-20 


ORNL-DWG  90M-11872 


+z 


SPECIFY:  The  maximum  (max)  and  the  minimum  (min)  values  of  the 
X,  Y,  Z  coordinates  which  bound  the  parallelepiped. 

NOTES:  The  bounding  planes  must  be  parallel  to  the  coordinate 

axes  of  the  target. 

Card  Columns  71-80  may-be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARO  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

RPP 

Xmin 

Ymin 

Zmin 

Xmax 

Ymax 

Zmax 

1  of  1 

Figure  C-15.  Rectangular  parallelepiped  (RPP)  input. 


ORNL-OWG  90M-11871 


SPECIFY:  The  center  point,  V,  and  scalar  R  denoting  the  radius. 

NOTES:  Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 

CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Sol  id 
Number 

SPH 

Vx 

vy 

Vz 

R 

1  of  1 

Figure  C-16.  Sphere  (SPH)  input. 


C-22 


ORNL-DWG90M-11869 


SPECIFY;  The  coordinates  of  vertex  V  at  the  center  of  the  larger 

ellipse,  and  the  X,  Y,  Z  components  of  the  height  vector  H 
and  vectors  A  and  B  describing  the  semi -major  and  semi -minor 
axes.  The  ratio  P  of  the  larger  to  smaller  ellipse. 

NOTES:  The  height  vector  H  does  not  have  to  be  perpendicular  to  the 

plane  containing  vectors  A  and  B.  The  ratio  P  may  be 
determined  by  the  magnitude  (length)  of  semi -major  vector  A 
of  the  base  ellipse  divided  by  the  length  of  semi -major  axis 
of  the  upper  ellipse:  P  >  1. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Sol  id 
Number 

TEC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1  of  3 

Solid 

Number 

Ax 

Ay 

Az 

Bx 

By 

Bz 

1  of  3 

Solid 

Number 

P 

3  of  3 

Figure  C-17.  Truncated  elliptic  cone  (TEC)  input. 


ORNL-DWG  90M-11870 


SPECIFY:  The  coordinates  of  vertex  V  at  the  center  of  the  larger 

ellipse,  and  the  X,  Y,  Z  components  of  the  height  vector  H 
and  vectors  A  and  B  describing  the  semi -major  and  semi -ml nor 
axes.  The  ratios  T(A)  and  T{B)  of  the  semi -major  and 
semi -mi nor  axes  for  the  smaller  ellipse. 

NOTES:  The  height  vector  H  does  not  have  to  be  perpendicular  to  the 

plane  containing  vectors  A  and  B.  The  semi -major  and  semi -minor 
axes  of  the  smaller  ellipse,  TA*A  and  TB*B,  respectively, 
must  be  parallel  to  the  semi -major  and  semi -ml nor  axes, 
respectively,  of  the  larger  ellipse. 

Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

TGC 

Vx 

vy 

Vz 

Hx 

Hy 

Hz 

1  of  3 

Sol  id 
Number 

Ax 

Ay 

Az 

Bx 

By 

Bz 

1  of  3 

Solid 

Number 

TA 

TB 

3  of  3 

Figure  C-18.  Truncated  general  cone  (TGC)  input. 


C-24 


ORNL-DWG90M-11868 


SPECIFY:  The  vertex  V  at  the  center  of  the  torus,  a  normal  vector  N  to 
the  plane  in  which  the  locus  of  the  mid-points  of  the  circular 
cross  sections  lies,  and  the  scalars  Rl,  the  distance  from  the 
center  V  to  the  mid-point  of  the  circular  cross  section, 
and  R2,  the  radius  of  the  circular  cross  section. 

NOTES;  Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

TOR 

Vx 

vy 

Vz 

Nx 

Ny 

Nz 

1  of  2 

Rl 

R2 

2  of  2 

Figure  C-19. 


Torus  (TOR)  input. 


C-25 


ORNL-DWG80M-11884 


SPECIFY:  The  vertex  V  at  the  center  of  the  larger  base,  height 
vector  H  and  scalars  R1  and  R2  denoting  the  radii  of 
the  larger  and  smaller  bases,  respectively. 

NOTES:  Card  Columns  71-80  may  be  used  for  comments. 

Card  Format:  (15,  A3,  2X,  6F10.0,  AlO) 


CARD  COLUMNS 


1-5 

6-8 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Solid 

Number 

TRC 

Vx 

vy 

Vz 

Nx 

Ny 

Nz 

1  of  2 

Solid 

Number 

R1 

R2 

2  of  2 

Figure  C-20.  Truncated  right  angle  cone  (TRC)  input. 


SOLID  TABLE 


A  Solid  Table  contains  the  input  cards  for  every  solid  used  to  describe 
the  target.  Table  C-2  is  the  Solid  Table  for  a  sample  target.  Twenty 
solids  are  used  to  describe  the  sample  target. 

Every  solid  within  a  Solid  Table  must  have  a  unique  number.  The 
numbering  of  the  solids  in  the  Solid  Table  begins  with  the  number  "1" 
and  is  consecutive  (1,  2,  3  ...).  No  hierarchy  exists  between  the 
solids;  any  solid  type  can  be  numbered  "1,  or  2,  or  3,..." 


"COMBINATION*  OF  SOLIDS 


The  three-dimensional  shape  and  space  of  several  solids  can  be 
"combined"  to  define  a  component  of  a  target.  Figure  C-21  illustrates 
the  concepts  of  "intersection,"  "subtraction,"  and  "union"  which  are 
used  to  "combine"  the  space  of  several  solids. 

Section  A  of  Figure  C-21  exhibits  an  RPP  and  SPH  which  overlap.  For 
discussion,  suppose  that  the  RPP  is  the  first  solid  in  a  Solid  Table;  it 
is  therefore  numbered  "1".  If  the  SPH  is  the  second  solid  in  the  Solid 
Table,  it  is  therefore  numbered  "2".  The  "intersection"  (+)  of  the  RPP 

(1)  and  the  SPH  (2)  solid  is  represented  as  "1+2".  The  "1  +  2" 
symbolization  may  be  interpreted  as  the  space  of  the  first  (1)  solid  in 
the  Solid  Table  that  overlaps  or  "intersects"  (+)  the  space  of  the 
second  (2)  solid  in  the  Solid  Table.  The  dashed  (/)  area  in  section  B 
of  Figure  C-21  represents  the  space  of  "1  +  2",  the  space  of  the  RPP  (1) 
that  overlaps  the  space  of  the  SPH  (2). 

The  "Subtraction"  (-)  of  the  space  of  the  SPH  (2)  from  the  space  of  the 
RPP  (1)  is  represented  by  "1  -  2".  The  "1  -  2"  symbolization  may  be 
interpreted  as  the  space  of  the  first  (1)  solid  removing  or 
"subtracting"  the  space  of  the  second  solid  in  the  Solid  Table.  The 
dashed  area  in  section  C  of  the  Figure  C-21  represents  the  space  of  "1  - 
2"  the  space  of  the  RPP  removing  the  space  of  the  SPH.  Note  that  the 
space  resulting  from  "1  +  2"  and  "2  +  1"  (intersect  relationship)  would 
be  the  same;  however,  "1-2"  results  in  a  space  different  from  "2  -  1", 
the  space  of  the  SPH  removing  the  space  of  the  RPP. 

The  "union"  (OR)  of  the  space  of  the  RPP  (1)  and  the  SPH  (2)  is 
represented  by  "1  OR  2".  The  "1  OR  2"  symbolization  is  the  space  of  the 
first  (1)  solid  "and"  or  "union"  (OR)  of  the  space  of  the  second  solid 

(2)  in  the  Solid  Table.  The  dashed  area  in  section  E  on  Figure  C-21 
represents  "1  OR  2",  the  space  of  the  RPP  "and"  the  space  of  the  SPH. 

As  the  intersect  relationship,  the  union  relationship  of  "1  OR  2"  and  "2 
OR  1"  results  in  the  same  space. 


C-27 


Table  C-2.  Solid  Table  for  the  Sample  Target 


1 

TOR 

21.5 

0.0 

37.0 

1.0 

0.0 

0.0 

STEERING 

1 

8.0 

1.0 

WHEEL 

2 

ARB4 

21.5 

-6.0 

33.5 

21.5 

6.0 

33.5 

CENTER 

2 

21.5 

0.0 

44.0 

40.0 

0.0 

37.0 

STEERING 

3 

ARB5 

75.0 

-36.0 

12.0 

75.0 

36.0 

12.0 

FRONT 

3 

75.0 

36.0 

48.0 

75.0 

-36.0 

48.0 

3-2 

3 

100.0 

0.0 

12.0 

3-3 

4 

ARB8 

-75.0 

-36.0 

12.0 

-75.0 

36.0 

12.0 

REAR 

4 

-75.0 

36.0 

48.0 

-75.0 

-36.0 

48.0 

4-2 

4 

-100.0 

-24.0 

12.0 

-100.0 

24.0 

12.0 

4-3 

4 

-100.0 

24.0 

20.0 

-100.0 

-24.0 

20.0 

4-4 

5 

ELL 

20.0 

0.0 

48.0 

-20.0 

0.0 

48.0 

BUBBLE 

5 

50.0 

6 

RPP 

-75.0 

75.0 

-36.0 

36.0 

12.0 

48.0 

BOOT 

7 

RCC 

60.0 

-36.0 

12.0 

0.0 

8.0 

0.0 

WHEEL 

7 

12.0 

8 

RCC 

60.0 

36.0 

12.0 

0.0 

-8.0 

0.0 

WHEEL 

8 

12.0 

9 

RCC 

-60.0 

•36.0 

12.0 

0.0 

8.0 

0.0 

WHEEL 

9 

12.0 

10 

RCC 

-60.0 

36.0 

12.0 

0.0 

-8.0 

0.0 

WHEEL 

10 

12.0 

11 

ARS 

6 

5 

ENGINE 

11 

-30.0 

-10.0 

15.0 

-30.0 

-10.0 

15.0 

11-2 

11 

•30.0 

-10.0 

15.0 

-30.0 

-10.0 

15.0 

11-3 

11 

-30.0 

-10.0 

15.0 

11-4 

11 

-30.0 

-10.0 

15.0 

-70.0 

-10.0 

15.0 

11-5 

11 

-70.0 

10.0 

15.0 

-30.0 

10.0 

15.0 

11-6 

11 

-30.0 

-10.0 

15.0 

11-7 

11 

-30.0 

-10.0 

25.0 

-70.0 

-10.0 

25.0 

11-8 

11 

-70.0 

10.0 

25.0 

-30.0 

10.0 

25.0 

11-9 

11 

-30.0 

-10.0 

25.0 

11-10 

11 

-30.0 

-20-0 

35.0 

-70.0 

-20.0 

35.0 

11-11 

11 

-70.0 

20.0 

35.0 

-30.0 

20.0 

35.0 

11-12 

11 

-30.0 

-20.0 

35.0 

11-13 

11 

-30.0 

-10.0 

45.0 

-70.0 

-10.0 

45.0 

11-14 

11 

-70.0 

10.0 

45.0 

-30.0 

10.0 

45.0 

11-15 

11 

-30.0 

•10.0 

45.0 

11-16 

11 

-30.0 

-10.0 

45.0 

-30.0 

-10.0 

45.0 

11-17 

11 

-30.0 

-10.0 

45.0 

-30.0 

-10.0 

45.0 

11-18 

11 

-30.0 

-10.0 

45.0 

11-19 

12 

RAW 

-70.0 

0.0 

35.0 

0.0 

-11.0 

11.0 

ENGINE 

12 

0.0 

11.0 

11.0 

40.0 

0.0 

0.0 

13 

REC 

0.0 

0.0 

24.0 

0.0 

0.0 

28.0 

TRUNK 

13 

0.0 

7.5 

0.0 

5.0 

0.0 

0.0 

14 

SPH 

0.0 

0.0 

52.0 

5.0 

HEAD 

15 

TEC 

0.0 

-7.5 

49.0 

20.0 

0.0 

-12.0 

ARM 

15 

0.0 

0.0 

3.0 

0.0 

2.0 

0.0 

15-2 

15 

2.0 

15-3 

16 

TEC 

0.0 

7.5 

49.0 

20.0 

0.0 

-12.0 

ARM 

16 

0.0 

0.0 

3.0 

0.0 

2.0 

0.0 

16-2 

16 

2.0 

16-3 

17 

TRC 

-2.0 

-4.5 

27.0 

32.0 

0.0 

-12.0 

LEG 

17 

3.0 

2.0 

18 

TRC 

-2.0 

4.5 

27.0 

32.0 

0.0 

-12.0 

LEG 

18 

3.0 

2.0 

19 

ELL 

0.0 

0.0 

48.0 

24.0 

0.0 

0.0 

(1.0) 

19 

14.0 

20 

BOX 

-74.0 

-35.0 

13.0 

148.0 

0.0 

0.0 

(1.0) 

20 

0.0 

70.0 

0.0 

0.0 

0.0 

34.0 

C-28 


C-29 


To  model  irregular  shaped  components  of  a  target  may  require  the 
intersection,  subtraction,  and  union  of  many  different  solids.  In 
section  A  on  Figure  C-22  a  third  solid  (numbered  "3")  has  been  added  to 
the  RPP  and  SPH  configuration  used  in  Figure  C-21.  the  third  (3)  solid 
may  be  a  BOX  or  another  RPP. 

The  dashed  area  in  section  B  of  Figure  C-22  represents  the  space 
resulting  from  the  intersection  of  solids  1,  2,  and  3  (1  +  2  +  3).  A 
process  to  arrive  at  the  results  of  "1  +  2  +  3"  is  to  visualize  the  area 
resulting  from  "1  +  2"  (shown  in  Figure  C-21)  and  then  find  the 
intersect  (+)  of  the  third  (3)  solid  with  the  area  from  "1  +  2". 

The  dashed  area  in  section  C  of  Figure  C-22  represents  the  space 
resulting  from  the  relationship  "3  -  1",  the  space  of  the  third  (3) 
solid  removing  or  subtracting  the  space  of  the  first  (1)  solid. 

The  dashed  area  in  section  D  represents  the  space  resulting  from  "1  +  2 
-  3".  Again  analyzing  the  final  space  by  steps:  first,  visualize  the 
"1  +  2"  relationship,  then  remove  or  subtract  the  space  of  solid  "3". 

The  dashed  area  in  section  E  represents  the  space  resulting  from  "1  OR  2 
OR  3". 

The  dashed  area  in  section  F  represents  the  space  of  "1  +  2  -  3  OR  3  - 
1".  Note  that  the  space  of  "1  +  2  -  3  OR  3  -  1"  shown  in  section  F  is 
the  union  of  the  spaces  represented  in  sections  D  and  C.  In  section  F, 
the  OR  symbol  separates  the  "1  +  2  -  3"  portion  from  the  "3  -  1" 
portion.  The  solids  and  relationships  of  the  first  portion  (1+2-3) 
do  not  influence  the  solids  and  relationships  of  the  second  portion  (3  - 
1). 


REGION  TABLE 


For  every  component  of  the  target  which  is  being  modeled,  a  region 
card(s)  defines  the  shape  and  space  of  the  component  as  a  single  solid 
or  combination  of  several  solids.  On  the  region  cards,  the  solids  are 
referred  to  by  their  unique  solid  number  and  the  combination  symbols  "+, 
-,  OR"  are  used.  The  set  of  region  cards  which  defines  the  components 
of  the  target  is  called  the  "Region  Table."  Figure  C-23  displays  the 
input  format  for  the  region  card(s);  a  printout  of  the  input  cards 
required  for  a  sample  region  (111);  and  a  printout  of  the  region  cards 
that  comprise  the  Region  Table  for  the  sample  target. 

The  regions  in  the  Region  Table,  as  the  solids  within  the  Solid  Table, 
are  numbered  consecutively;  the  first  region  is  numbered  "1",  the  second 
number  "2",  the  third  numbered  "3",  etc. 

On  Figure  C-23,  the  sample  region  is  numbered  "111",  implying  that  it  is 
the  one  hundred  and  eleventh  region  in  some  Region  Table.  Two  region 
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Figure  C-22. 
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CARO  OJLUNNS 


1-5 

7-8 

9-13 

U-20 

21-27 

28-34 

35-41 

/2  48 

49-55 

56-62 

63-64 

65-69 

Region 

Niniber 

OR 

(1)  Solid 
Nunber 

B 

B 

B 

B 

B 

B 

B 

B 

(t)  Solid 
Nurber 

1  Comments 

Card  Format:  (15,  T',  9(A2,  15),  Al,  2A5) 

Note:  The  first  two  card  columns  are  reserved  for  OR  if  necessary, 
while  the  remaining  five  card  columns  are  used  for  (±)  Solid 
Numbers.  For  example:  card  columns  14  and  15  are  for  OR  if 
needed  while  columns  16-20  are  used  for  (+)  Solid  Numbers. 


SAMPLE 

REGION 

INPUT 

FOR  1+2-3  OR  4 

OR  5+6-7 

111  OR 

1 

2 

-30R  40R 

5 

-10 

11 

120R  13 

REGION 

TABLE  FOR  THE 

SAMPLE 

1 

1 

-2 

2 

2 

3 

3 

4 

4 

5 

5 

-6 

-19 

6 

6 

-20 

-19  -7 

•8 

7 

7 

8 

8 

9 

9 

10 

10 

11 

11 

-12 

12 

13 

13 

-15 

-16  -17 

-18 

14 

14 

•13 

15 

15 

16 

16 

17 

17 

18 

18 

19 

19 

20 

20 

-1 

Figure  C 

-23. 

Card  Input 

for  tl 

•80R 


111-1 

111-2 


-9  -10 


Region  Table  for  the  Sample  Target. 


cards  are  required  to  define  our  sample  region  "1  +  2  -  3  OR  4  OR  5  +  6 
-  7  -  8  OR  9  -  10  +  11  12  OR  13".  Any  number  of  region  cards  may  be 

required  to  define  a  region;  however,  only  the  first  card  contains  the 
region  number.  N^te  that  the  region  number  "111"  appears  in  card 
columns  3,  4,  5  only  on  the  first  card. 

Card  columns  70-80  (comments)  on  the  region  card  may  include  any 
comments,  but  including  an  identification  of  the  card  is  recommended 
when  more  than  one  card  is  required  to  define  a  region.  For  example, 
the  comments  "111-1"  and  "111-2"  in  columns  70-80  on  the  sample  region 
cards  mean  "111"  first  (1)  and  second  (2)  card,  respectively. 
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When  the  "OR"  relationship  is  used  in  the  definition  of  a  region,  "OR" 
must  be  punched  in  card  columns  7-8  on  the  first  region  card.  Note  the 
"OR"  after  "111"  on  the  first  region  card  for  the  sample  region.  The 
sample  region  reads:  "OR  1  +  2  -  3  OR  4  . . .  "  which  is  the  same  as  "1 

+  2  -  3  OR  4  ...  ";  the  introductory  "OR"  indicates  to  the  GIFTS 

geometry  package  that  the  "OR"  relationship  will  be  used  in  the 
description  of  the  region. 

On  the  region  cards,  the  "+"  symbol  need  not  be  punched.  Reviewing  the 
region  cards  for  region  111  and  the  Region  Table  for  the  sample  target, 
note  that  no  "+"  symbols  are  used.  A  non-punch  or  blank  before  a  solid 
number  implies  the  intersection  (+)  relationship. 

There  are  twenty  regions  in  the  Region  Table  for  the  sample  target,  and 
the  region  numbers  in  the  table  are  numbered  consecutively  (1  to  20). 
The  last  card  (after  region  number  "20"  card)  in  the  Region  Table 
contains  "-1"  in  card  columns  4  and  5.  The  "-1  CARD",  as  it  is  called, 
is  the  flag  or  mark  that  indicates  the  end  of  the  Region  Table  and  must 
follow  the  Region  Table. 


RECONNENDED  PROCEDURES  FOR  THE  REGION  TABLE 


The  Solid  Table  for  the  sample  target  (Table  C-2)  contains  twenty  solids 
and  the  Region  Table  contains  twenty  regions  (Figure  C-23).  The  number 
of  solids  and  the  number  of  regions  may  be  different;  however, 
experience  gained  from  modeling  targets  containing  many  solids  has 
proven  the  usefulness  of  the  following  scheme.  Note  that  region  number 
"1"  in  the  Region  Table  for  the  sample  target  begins  with  the  solid 
number  "1";  region  number  "2"  begins  with  solid  number  "2";  region  "3" 
with  solid  "3"  ...  region  "20"  with  solid  "20".  Only  region  number 
"12"  does  not  follow  the  pattern.  In  fact,  region  "12"  sans  any  solid 
numbers  is  called  a  "dummy  region"  because  no  space  is  defined  by  the 
region.  In  a  Region  Table  any  number  of  "dummy  regions"  like  region 
"12"  may  be  used.  A  "dummy  region"  is  a  region  card  containing  only  a 
region  number.  Because  the  regions  must  be  numbered  consecutively,  the 
purpose  of  region  "12"  is  to  maintain  the  pattern  of  region  "13,  14,  15 
...  20"  beginning  with  solid  number  "13,  14,  15  ...  20".  When  the 
region  number  is  equal  to  the  first  solid  number,  it  is  easy  to  locate 
the  components  of  the  modeled  target,  to  correct  errors,  and  to  modify 
the  Solid  and  Region  Tables.  Using  "dummy  regions"  and  having  the  first 
solid  and  region  number  for  non -dummy  regions  equal  is  recommended. 

The  Region  Table  for  the  sample  target  does  not  contain  any  "OR"  or 
union  relationships.  The  OR  relationship  between  solids  may  be  used  but 
its  usage  is  not  recommended.  (A  later  section  of  this  appendix 
presents  a  technique  which  is  logically  equivalent  to  the  "OR" 
relationship) . 
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REGION  IDENTIFICATION  TABLE 


The  Region  Identification  Table  assigns  an  identification  (code)  number 
to  each  region  in  the  Region  Table.  Table  C-3  exhibits  a  grouping  of 
identification  numbers  from  1  to  998  used  to  identify  the  components  of 
military  vehicles  -  tanks,  trucks,  etc.  Numbers  from  1  to  99  are 
assigned  to  the  regions  in  the  Region  Table  which  represent  "personnel 
and  miscellaneous  interior  components";  numbers  from  100  to  199  are 
assigned  to  the  regions  in  the  Region  Table  which  represent  "armor  and 
vehicle  structure  components";...;  numbers  from  900  to  998  are  used  to 
identify  the  regions  in  the  Region  Table  which  represent  components  that 
are  "ammunition." 

Regions  in  the  Region  Table  may  also  define  spaces  which  represent  air 
within  and  around  a  target  or  vehicle.  For  example,  regions  may  define 
the  air  space  where  the  crew  members  of  a  vehicle  are  (crew  compartment 
air),  the  air  space  where  the  passengers  are,  and  the  air  space 
surrounding  the  engine  of  the  vehicle.  Respectively,  the  identification 
numbers  "02",  "03"  and  "05"  (shown  in  Table  C-3)  are  assigned  to  these 
air  spaces. 

Figure  C-24  presents  the  card  input  format  and  a  printout  of  the  Region 
Identification  Table  for  the  sample  target.  On  the  input  cards,  the 
region  number  is  followed  by  either  a  component  (item)  or  an  air  space 
identification  (code)  number;  a  region  either  models  an  item  or  it 
models  an  air  space.  In  the  Region  Identification  Table,  regions  19  and 
20  are  identified  as  "02"  air  spaces,  while  region  numbers  1  to  18  have 
item  numbers.  For  example,  Region  1  has  been  identified  by  component 
number  "40",  and  represents  the  "steering  wheel"  as  the  comments  on  the 
region  identification  card  indicate.  The  "1-2",  also  contained  in  the 
comment  section  of  this  card,  is  the  Region  Table  description  of  region 
1  where  solid  1  is  a  "TOR".  (The  verbal  and  region  description,  and  the 
solid  type  are  contained  in  the  comment  section  of  the  region 
identification  cards  for  the  other  regions.)  Comments  should  verbally 
describe  and  define  the  component  or  air  space  that  the  region  models. 

The  user  is  not  required  to  define  any  air  spaces  in  the  Region  and 
Region  IdentTTTcation  Tables.  Air  spaces  are  defined  if  the  user  wants 
to  identify  special  air  spaces  within  and  around  the  target  such  as  the 
crew  and  engine  compartment  air.  Regions  19  and  20  of  the  sample  target 
identify  the  air  space  (02)  inside  of  the  sample  target  (a  car). 

Regions  19  and  20  were  included  to  illustrate  air  space  usage; 
otherwise,  regions  19  and  20  may  have  been  omitted  from  the  Region  and 
the  Region  Identification  Tables. 
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Table  C-3.  Identification  Numbers  Used  for  Vehicles  and  Air  Regions 
within  the  Vehicles  in  the  GIFTS  Geometry  Package. 


Identification 

Number 


Components  of  the 
Target  Vehicle 


1 

TO 

99 

100 

TO 

199 

200 

TO 

299 

300 

TO 

399 

400 

TO 

499 

500 

TO 

599 

600 

TO 

699 

700 

TO 

799 

800 

TO 

899 

900 

TO 

998 

*501 

*111 

*999 

PERSONNEL  AND  MISCELLANEOUS  INTERIOR  COMPONENTS 

ARMOR  AND  VEHICLE  STRUCTURE  COMPONENTS 

FUEL  STORAGE  AND  SUPPLY  SYSTEM  COMPONENTS 

MISCELLANEOUS  EXTERIOR  COMPONENTS 

ARMAMENT  (NOT  AMMO)  SYSTEMS  COMPONENTS 

TRACK  SUSPENSION  SYSTEM  COMPONENTS 

WHEEL  SUSPENSION  SYSTEM  COMPONENTS 

ENGINE,  TRANSMISSION,  AND  THEIR  POWER  COMPONENTS 

ENVIRONMENT  AND  SAFETY  COMPONENTS 

AMMUNITION 

USE  FOR  TRACK  ONLY.  GIFTS  GENERATES  502  FOR  TRACK  EDGE 
USE  FOR  DUMMY  REGIONS 

NEVER  USE.  SPECIAL  NUMBER  FOR  GIFTS  GEOMETRY  PACKAGE 


Identification 

Number 


Components  of  the 
Air  Regions  in  Vehicles 


01  AIR  IN  GENERAL.  GIFTS  ASSIGNS  "01"  IN  DESCRIPTION  GAPS 

02  CREW  COMPARTMENT  AIR  FOR  VEHICLES 

03  PASSENGER  COMPARTMENT  AIR  FOR  VEHICLES 

05  ENGINE  COMPARTMENT  AIR  FOR  VEHICLES 

10  TO  98  MAY  USE.  NO  SPECIAL  USAGE  DEFINED  BY  GIFTS 
*09  NEVER  USE.  SPECIAL  NUMBER  FOR  GIFTS  GEOMETRY  PACKAGE 


*  SPECIAL  USAGE  IDENTIFICATION  NUMBERS 
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CARO  COLUMNS 


1-10 

6-10 

11-15 

16-20 

21-25 

26-30 

31-78 

Region 

Nunber 

Item  Code 
Nimber 

Air  Spece 
Code  Nmber 

Materiel 

Code 

Percent 

Density 

Alpiianifiieric  Description 
of  the  Region 

Card  Format:  (515,  5X,  A48) 


REGION  IDENTIFICATION  TABLE 

FOR  THE  SAMPLE  TARGET 

1 

40 

STEERING  WHEEL 

1-2 

TOR 

2 

41 

STEERING  SHAFT 

2 

ARB4 

3 

100 

BOOT  FRONT 

3 

ARBS 

4 

100 

BODY  REAR 

4 

ARBS 

5 

101 

BUBBLE 

5-6-19 

ELL 

6 

100 

BOOT  CENTER 

6-20-19-7-8-9- 

10  RPP 

7 

651 

WHEEL  RIGHT  FRONT 

7 

RCC 

8 

652 

WHEEL  LEFT  FRONT 

8 

RCC 

9 

653 

WHEEL  RIGHT  REAR 

9 

RCC 

10 

654 

WHEEL  LEFT  REAR 

10 

RCC 

11 

701 

ENGINE 

11-12 

ARS 

12 

111 

DUMMY  REGION 

0 

RAW 

13 

31 

MAN-TORSO 

13-15-16-17-18 

REC 

14 

31 

MAN-HEAD 

14-13 

SPH 

15 

31 

MAN-ARM 

15 

TEC 

16 

31 

MAN-ARM 

16 

TEC 

17 

31 

MAN-LEG 

17 

TRC 

18 

31 

MAN-LEG 

18 

TRC 

19 

02 

INSIDE  AIR  (BUBBLE>19 

ELL 

20 

02 

INSIDE  AIR  (BODY) 

20 

BOX 

Figure  C-24.  Card  Input  for  the  Region  Identification  Table 
and  a  Region  Identification  Table  for  the  Sample  Target. 


SPECIAL  REGION  IDENTIFICATION  NUMBERS 


In  Table  C-3  certain  identification  numbers  are  preceded  by  an  asterisk 
(*);  these  identification  numbers  have  specific  meanings.  Never  use 
number  "999"  to  identify  a  component  and  never  use  "09"  to  identify  an 
air  space. 

The  number  "111"  is  used  to  identify  the  "dummy  regions"  in  the  Region 
Table.  For  example,  for  the  sample  target,  region  12  is  a  dummy  region; 
thus,  it  is  identified  by  the  special  number  "111".  The  last  special 
identification  number  is  "501";  this  number  is  only  used  to  identify 
regions  that  model  the  tracks  of  tracked  vehicles.  The  "501"  number  is 
sometimes  converted  by  the  GIFT5  geometry  package  into  "502",  which 
indicates  the  edge  of  the  track. 

Users  of  the  GIFT5  geometry  package  may  use  the  identification  system 
shown  in  Table  C-3  or  develop  an  original  grouping  scheme,  but  the  usage 
of  the  special  numbers  (501,  111,  999  and  09  air)  cannot  change. 
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USING  IDENTIFICATION  NUMBERS  TO  "COMBINE*  REGIONS 


In  Figure  C-24,  note  that  regions  13  to  18  have  a  common  identification 
number  (31),  while  regions  3,  4  and  6  have  a  common  identification 
number  (100).  Regions  with  a  coiranon  identification  number  are 
"combined"  as  the  "OR"  relationship  combines  solids.  For  example, 
because  regions  13  to  18  are  identified  by  the  same  code  number  (31), 
these  regions  are  equivalent  to  the  following  single  region:  "13  -  15  - 
16  -  17  -  18  OR  14  -  13  OR  15  OR  16  OR  17  OR  18". 

It  is  recommended  that  the  user  not  use  the  "OR"  relationship,  but  use 
common  identification  numbers  to  combine  regions.  There  are  several 
reasons  why  it  is  more  desirable  to  use  the  same  identification  numbers 
for  several  simple  regions  rather  than  use  the  OR  relationship  to  create 
one  large  region.  The  computer  run-time  is  increased  when  the  OR 
relationship  is  used.  It  is  easier  to  locate  the  parts  of  a  component 
when  they  are  defined  by  several  regions  with  the  same  identification 
number.  For  example,  regions  13  to  18  define  the  different  parts  of  the 
man  or  the  driver  of  the  sample  vehicle.  If  a  user  wanted  to  place  a 
helmet  an  the  man's  head,  the  man's  head  is  quickly  identified  to  be 
region  "14".  If  regions  13  to  18  were  grouped  into  a  single  region  by 
using  the  OR  relationship,  it  would  be  harder  to  locate  the  head  of  the 
man.  A  user  may  be  required  to  identify  the  different  parts  of  the  man 
such  as  his  head,  legs,  arms,  and  torso.  The  users  would  only  have  to 
assign  unique  identification  numbers  to  regions  13  to  18.  If  the  man 
was  a  single  region  using  the  OR  relationship,  the  user  would  be 
required  to  identify  the  parts  of  the  man  and  then  create  new  regions 
and  region  identification  cards.  The  problems  associated  with  the  use 
of  the  OR  relationship  expand  as  the  complexity  of  the  target  increases; 
therefore,  it  is  recommended  that  the  OR  relationship  not  be  used. 


RULES  FOR  REGIONS 


The  Region  Identification  Table  defines  each  region  in  the  Region  Table 
as  either  a  component  or  an  air  space.  Rules  exist  for  regions  that 
model  components  or  items,  while  different  rules  apply  for  regions  that 
define  air  spaces.  Figure  C-25  provides  illustrations  for  the  rules  of 
the  regions. 

Section  A  of  Figure  C-25  exhibits  two  regions:  R1  is  a  BOX  and  R2  is  a 
SPH.  The  SPH  and  BOX  are  shown  to  overlap:  the  area  of  overlap 
contains  dashed  (/)  lines.  The  three-dimensional  SPH  and  BOX  solids  are 
represented  on  a  two-dimensional  plane;  thus  it  is  assumed  that  in  depth 
they  also  overlap.  If  R1  is  defined  to  be  the  space  of  the  BOX,  while 
R2  is  the  space  of  the  SPH  in  a  Region  Table,  and  if  R1  and  R2  were 
identified  in  the  Region  Identification  Table  as  components  or  items, 
then  the  only  rule  for  regions  that  model  components  is  violated  - 
REGIONS  THAT  MODEL  COMPONENTS  CANNOT  OVERLAP.  In  the  physical  world 
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Figure  C-25.  Illustrations  for  Region  Rules. 
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components  cannot  overlap  or  share  a  common  space;  thus,  R1  and  R2 
cannot  overlap  if  they  model  physical  components.  Regions  that  model 
components  and  overlap  indicate  errors  either  in  the  Solid  Table  data  or 
in  the  Region  Table  data. 

If  R1  is  the  space  of  the  BOX  while  R2  is  the  space  of  the  SPH,  and  if 
R1  and  R2  are  identified  as  items,  then  they  must  be  correctly  defined 
in  the  Solid  Table  to  assure  that  they  do  not  overlap.  It  may  be 
impossible  to  measure  and  record  the  BOX,  SPH,  or  any  solid  parameters 
accurately  enough  to  assure  that  the  solids  do  not  overlap.  If  the 
overlap  is  small,  the  user  can  modify  the  model  of  the  regions:  R1  can 
be  redefined  to  be  the  BOX  minus  (subtract  or  less)  (-)  the  space  of  the 
SPH,  removing  the  space  of  the  SPH  that  overlaps  the  BOX  from  the  model 
of  the  BOX;  or  R2  can  be  modified  in  a  similar  manner  to  remove  the 
overlap  space  of  the  BOX  from  the  SPH.  Solids  can  overlap,  but  regions 
identified  as  components  cannot.  In  the  next  section  of  this  appendix, 
it  will  be  explained  how  the  user  can  specify  the  amount  of  overlap 
between  solids  to  be  ignored  by  the  GIFTS  geometry  package. 

Section  B  of  Figure  C-25,  displays  four  regions:  R1  is  a  BOX  while  R2, 
R3  and  R4  are  SPH's.  The  rules  for  regions  identified  in  the  Region 
Identification  Table  as  air  spaces  are  different  from  the  rules  of  the 
regions  identified  as  components.  If  R1  is  identified  in  the  Region 
Identification  Table  as  an  air  space  while  R2,  R3  and  R4  are  identified 
as  components,  then  region  R1  can  be  defined  as  the  space  of  the  BOX. 
REGIONS  IDENTIFIED  AS  AIR  SPACES  CAN  OVERLAP  ANY  REGIONS  IDENTIFIED  AS 
COMPONENTS.  Imagine  R1  as  a  BOX  that  defines  the  air  in  a  rectangular 
room,  while  R2,  R3,  R4  are  components  within  the  room.  The  BOX  or  R1 
would  define  the  space  of  the  air  in  the  room  and  R2,  R3,  R4,  would  be 
components  within  the  air  space  (Rl)  of  the  room.  If  Rl,  R2,  R3,  and  R4 
were  all  identified  in  the  Region  Identification  Table  as  components, 
then  to  avoid  overlap,  Rl  would  have  to  be  defined  as  the  space  of  the 
BOX  less  or  subtracting  (-)  the  solids  that  define  the  space  occupied  by 
regions  R2,  R3,  and  R4. 

Examining  the  Solid  Table,  the  Region  Table  and  the  Region 
Identification  Table  for  the  sample  target,  note  that  both  regions  19 
and  20  are  identified  as  02  air  space  and  the  spaces  defined  by  regions 
19  and  20  overlap  each  other.  REGIONS  IDENTIFIED  AS  AIR  SPACES  CAN 
OVERLAP  REGIONS  WITH  THE  SAME  AIRSPACE  IDENTIFICATION  CODE  NUMBER. 

REGIONS  WITH  AIRSPACE  CODE  NUMBERS  CANNOT  OVERLAP  REGIONS  WITH  DIFFERENT 
AIR  SPACE  CODE  NUMBERS.  If  region  19  of  the  sample  target  was 
identified  in  the  Region  Identification  Table  with  any  air  space  code 
number  other  than  02,  and  region  20  retained  its  02  code  number,  then 
regions  19  and  20  could  not  overlap. 
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GIFTS  GEOMETRY  PACKAGE  MEMORY  REQUIREMENTS  AND  REGION  TOLERANCES 


The  GIFTS  geometry  package  is  not  flexibly  dimensioned.  As  such, 
changes  have  to  be  made  to  the  main  program  to  accommodate  large  target 
descriptions  or  different  tolerance  values  for  the  target  description. 
There  are  two  specific  lines  within  the  GIFTS  geometry  package  that 
specify  the  memory  size,  and  two  specific  lines  that  give  the  default 
values  for  region  tolerances  for  the  target  description  data. 

Lines  "COMMON  ASTER  (5000)"  and  "NDQ-5000"  specify  the  amount  (5000)  of 
words  of  memory  storage  reserved  for  the  target  description  data: 

Solid,  Region,  Region  Identification  Tables,  and  other  geometric  data 
that  are  stored  in  the  computer's  core  memory.  The  memory  size  required 
for  a  given  target  description  is  difficult  to  compute  because  a  large 
number  of  factors  must  be  considered.  A  crude  estimate  of  the  amount  of 
memory  words  of  storage  required  is  45  times  the  number  of  solids  in  the 
target  description  data. 

The  "5000"  memory  words  indicated  on  the  printout  is  large  enough  for 
the  sample  target;  however,  the  "5000"  words  would  not  be  large  enough 
for  a  target  description  containing  hundred  of  solids  and  regions.  If  a 
target  description  has  1000  solids,  then  45  times  the  number  of  solids 
(1000),  or  45,000  words,  is  a  crude  estimate  of  memory  requirements.  To 
run  the  1000  solid  target  description,  the  user  must  change  the  "COMMON 
ASTER  (5000)"  line  to  "COMMON  ASTER  (45000)"  and  the  "NDQ»5000"  line  to 
"ND-45000".  If  45,000  words  i:  insufficient,  then  one  of  the  following 
statements  will  be  outputted  depending  upon  what  data  was  being  stored 
when  the  memory  was  exceeded:  1)  NO  MORE  ROOM  FOR  SOLID  DATA,  2)  NO 
MORE  ROOM  FOR  REGION  DATA,  3)  NO  ROOM  FOR  IDENTIFICATION  TABLE,  4)  NO 
ROW  FOR  WORKING  STORAGE.  Working  storage  is  the  memory  required  to 
perform  the  calculations  of  the  GIFTS  geometry  package.  If  one  of  the 
above  statements  is  output,  then  the  numeric  value  of  the  "COMMON  ASTER" 
and  "NDQ»"  lines  must  be  enlarged  to  store  the  target  description  data. 

Section  C  of  Figure  C-25  illustrates  two  regions,  R1  and  R2,  and  a 
distance  "D"  between  the  two  regions.  Suppose  that  D  is  a  small 
distance  between  R1  and  R2  that  occurred  because  the  input  parameters 
for  the  solids  which  define  R1  and  R2  could  not  be  measured  and  recorded 
accurately  enough.  The  GIFTS  geometry  package  allows  the  users  to 
specify  the  gap  distance  "0"  between  item  and  air  regions  to  be  ignored 
or  tolerated.  TOL  is  the  overlap  tolerance,  while  TOLLOS  is  the  gap 
tolerance.  The  value  of  0.0001  is  one  ten-thousandth  of  the  unit  of 
measurement  (inches,  centimeters,  etc.)  used  in  the  target  description 
model.  For  most  target  descriptions,  the  "T0L»0.000r  and 
TOLLOS-0.0001"  lines  are  replaced  by  "TOL^O.Ol"  and  "T0LL0S«0.01"  or  one 
hundredth  of  the  unit  of  measure  is  the  tolerance  used.  The  user  can 
decide  and  set  the  numeric  values  of  TOL  and  TOLLOS  to  be  used  with  his 
target  description  data. 
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REGION  RPP  TABLE 


An  RPP  solid  (see  Figure  C-15)  can  be  defined  to  enclose  or  contain  the 
space  or  volume  of  any  region.  The  minimum  and  maximum  X,  Y,  and  Z 
coordinate  values  (XMIN,  XMAX,  YMIN,  YMAX,  ZMIN  and  ZMAX)  of  the  RPP 
solid  that  encloses  a  region  may  be  interpreted  as  follows;  The  region 
is  located  between  XMIN  and  XHAX,  is  between  YMIN  and  YMAX,  and  is 
between  ZMIN  and  ZMAX.  Figure  C-26  presents  the  card  input  format  and  a 
printout  of  the  Region  RPP  Table  for  the  sample  target. 

The  first  card  of  the  Region  RPP  Table  for  the  sample  target  states  that 
region  number  "1"  is  enclosed  by  an  RPP  with  XMIN=20.0,  XMAX=23.0, 
YMIN«-10.0,  YMAX=10.0,  ZMIN-28.0,  and  ZMAX*46.0.  Note  that  the  sample 
table  does  not  include  a  card  input  for  region  "12"  because  region  "12" 
is  a  "dummy  region."  Region  "2"  modeling  the  steering  shaft  or  any 
region  may  be  omitted  from  the  Region  RPP  Table.  In  fact,  no  Region  RPP 
Table  is  required  because  the  GIFTS  geometry  package  computes  a  set  of 
enclosing  RPP  values  (XMIN,  XMAX,  YMIN  ...  ZMAX)  for  any  region  in  the 
Region  Table  not  included  in  the  Region  RPP  Table. 

The  option  to  input  enclosing  RPP  values  for  some  or  every  region  is 
provided  because  the  GIFTS  geometry  package  may  not  compute  a 
"desirable"  set  of  RPP  values.  For  example,  an  RPP  with  XMIN,  YMIN,  and 
ZMIN  values  of  -200.0  and  XMAX,  YMAX,  ZMAX  values  of  200.0  would  enclose 
every  region  of  the  sample  target;  however,  the  region  RPP  values  on 
Figure  C-26  define  smaller  volumes  or  spaces  and  are  "better  fitting" 
enclosing  RPP's  and  thus  more  desirable  RPP  values.  For  most  regions, 
the  GIFTS  geometry  package  computes  a  good  enclosing  RPP;  however,  the 
computed  enclosing  RPP  values  for  a  few  regions  can  be  improved.  The 
smaller  the  volume  or  the  better  fit  of  the  RPP  that  encloses  a  region, 
the  shorter  the  computer  run  time  for  the  GIFTS  geometry  package. 


THE  TITLE  AND  TARGET  SPECIFICATION  CARDS 


To  complete  the  target  description,  two  additional  cards  are  required  - 
the  Title  Card  and  the  Target  Specification  Card.  Figure  C-27  exhibits 
the  card  input  for  these  cards. 

The  Title  Card  contains  the  name  of  the  target,  the  date  the  model  was 
prepared,  the  units  of  measure  used  in  the  model,  and  any  other 
important  information  on  the  modeled  target.  Only  the  first  6S  card 
columns  of  the  Title  Card  are  read  by  the  GIFTS  geometry  package; 
however,  card  columns  66  to  80  may  contain  additional  information  on  the 
target. 

The  Target  Specification  Card  contains  the  number  of  solids  and  the 
number  of  regions  used  to  model  the  target. 
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CARD  COLUMNS 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

Number 
of  Cards 

Region 

Number 

Xmin 

Ymin 

Zmin 

Xmax 

Ymax 

Zmax 

1  of  1 

Card  Format:  (110,  6F10.0) 


REGION 

RPP 

TABLE  FOR 

THE  SAMPLE 

TARGET 

1 

20.0 

23.0 

-10.0 

10.0 

28.0 

46.0 

2 

21.0 

40.0 

-6.0 

6.0 

33.0 

44.0 

3 

74.0 

101.0 

-36.0 

36.0 

12.0 

48.0 

4 

-101.0 

-74.0 

-36.0 

36.0 

12.0 

48.0 

5 

-25.5 

25.5 

-15.5 

15.5 

45.0 

63.0 

6 

-75.0 

75.0 

-36.0 

36.0 

12.0 

48.0 

7 

47.0 

72.5 

-36.0 

-28.0 

0.0 

24.0 

8 

47.0 

72.5 

28.0 

36.0 

0.0 

24.0 

9 

-72.5 

-47.0 

-36.0 

-28.0 

0.0 

24.0 

10 

-72.5 

-47.0 

28.0 

36.0 

0.0 

24.0 

11 

-70.0 

-30.0 

-20.0 

20.0 

15.0 

45.0 

13 

-5.0 

5.0 

-7.5 

7.5 

24.0 

52.0 

14 

-5.5 

5.5 

-5.5 

5.5 

52.0 

57.0 

15 

0.0 

20.0 

-10.0 

-5.5 

35.0 

52.5 

16 

0.0 

20.0 

5.0 

10.0 

35.0 

52.5 

17 

-3.5 

31.0 

-8.0 

-1.0 

12.0 

30.0 

18 

-3.5 

31.0 

1.0 

8.0 

12.0 

30.0 

19 

-24.5 

24.5 

-15.0 

15.0 

34.0 

62.0 

20 

-75.0 

75.0 

-35.0 

35.0 

13.0 

47.0 

Figure  C-26.  Card  Input  for  the  Region  RPP  Table  and 
the  Region  RPP  Table  for  the  Sample  Target. 
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TITLE  CARD 
CARD  COLUMNS 


1-2 

3-5 

6-65 

tmm 

■UUjM 

Alphanumeric  Description  of  the  target: 
including  title,  date  prepared,  etc. 

Card  Format:  (A2,  3X,  A60) 


TARGET  SPECIFICATION  CARD 
CARD  COLUMNS 


1-5 

6-10 

Number  of  Solids  in 
the  Solid  Table 

Number  of  Regions  in 
the  Region  Table 

Card  Format:  (215) 


Figure  C-27.  Card  Input  for  the  Title  Card 
and  Target  Specification  Card. 
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CARD  ORDER  FOR  THE  TARGET  DESCRIPTION  INPUT 


The  order  of  the  card  input  for  the  target  description  data  is  as 
follows.  The  first  card  is  the  Title  card,  followed  by  the  Target 
Specification  card.  Next  comes  the  Solid  Table  -  as  required  by  the 
target  description.  Be  sure  the  number  of  solids  on  the  Target 
Specification  card  match  the  number  of  solids  in  the  Solid  Table.  Next 
comes  the  Region  Table  -  as  required  by  the  target  description.  Again, 
make  sure  the  number  of  regions  on  the  Target  Specification  card  match 
the  number  of  regions  in  the  Region  Table.  The  Region  Table  is  followed 
by  the  Region  RPP  Table.  This  Table  is  not  required  and  usually  not 
input.  Finally,  the  Region  RPP  Table  (or  Region  Table  if  the  Region  RPP 
Table  is  omitted)  is  followed  by  the  Region  Identification  Table.  Note 
that  the  Region  Table  is  followed  by  the  "-1  Card"  while  a  blank  card 
follows  both  the  Region  RPP  and  the  Region  Identification  Tables.  If  no 
Region  RPP  cards  are  used,  the  blank  card  indicating  the  end  of  the 
Region  RPP  Table  will  follow  the  "-1  Card". 
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APPENDIX  D 

HASH  1.0  CODE  ABSTRACT 


NASH  1.0  CODE  SYSTEM  ABSTRACT 


1.  NAME  AND  TITLE 


MASH  1.0  -  A  Monte  Carlo  Adjoint  Shielding  Code  System 


2.  COMPUTER  FOR  WHICH  PROGRAM  IS  DESIGNED 

MASH  was  originally  developed  on  a  Cray  X-MP,  but  it  has  also  been 
checked  out  on  Cray  Y-MP  and  Cray  2  computers  as  well  as  an  IBM  !1ISC 
System/6000  workstation.  Since  it  can  operate  without  machine-dependent 
coding  or  explicit  subroutine  library  calls,  it  should  be  operable  on 
other  computers  with  sufficient  memory  and  disk  storage. 

3.  NATURE  OF  PROBLEM  SOLVED 

MASH  calculates  neutron  and  gamma-ray  environments  and  radiation 
protection  factors  for  armored  military  vehicles,  structures,  trenches, 
and  other  shielding  configurations.  The  principal  application  is  to 
determine  the  radiation  shielding  characteristics  of  armored  vehicles 
from  prompt  radiation  due  to  a  nuclear  weapon  detonation.  The  shielding 
effectiveness  can  be  characterized  for  both  personnel  and  electronic 
equipment  as  a  function  of  weapon  detonation  height,  source/target 
ground  range,  and  vehicle  orientation  and  configuration. 

4.  METHOD  OF  SOLUTION 

The  discrete  ordinates  calculation  determines  the  fluence  on  a  coupling 
surface  surrounding  the  shielding  geometry  due  to  an  external 
neutron/gamma- ray  source.  The  Monte  Carlo  calculation  determines  the 
effectiveness  of  the  fluence  at  that  surface  in  causing  a  response  in  a 
detector  within  the  shielding  geometry,  i.e.,  the  "dose  importance"  of 
the  coupling  surface  fluence.  A  coupling  code  folds  the  fluence 
together  with  the  dose  importance,  giving  the  desired  dose  response. 

The  coupling  code  can  determine  the  dose  response  as  a  function  of  the 
shielding  geometry  orientation  relative  to  the  source,  distance  from  the 
source,  and  energy  response  of  the  detector. 

The  code  system  includes  the  GRTUNCL  and  DORT  codes  for  air-over-ground 
transport  calculations,  the  MORSE  code  with  the  GIFTS  combinatorial 
geometry  package  for  adjoint  shielding  calculations,  and  several 
peripheral  codes  that  perform  the  required  data  preparations, 
transformations,  and  coupling  functions.  MASH  is  the  successor  to  the 
Vehicle  Code  System  (VCS)  initially  developed  at  Oak  Ridge  National 
Laboratory  (ORNL). 
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5.  RESTRICTIONS  OR  LIMITATIONS 

MASH  is  a  modular  code  system  made  up  of  several  codes,  each  with  their 
own  set  of  restrictions  and  limitations.  Most  of  the  modules  utilize 
dynamic  dimensioning,  however,  MORSE  and  DRC  use  a  large  container  array 
in  Blank  Common  to  accommodate  this.  Typically,  machine  size  and  disk 
storage  space  will  provide  the  overall  limit. 

6.  TYPICAL  RUNNING  TIME 

Since  a  typical  MASH  problem  involves  running  a  sequence  of  codes, 
quantifying  total  running  time  is  difficult.  The  running  time  varies 
depending  on  the  complexity  of  the  problem.  The  two  modules  in  MASH 
requiring  the  bulk  of  the  running  time  are  DORT  and  MORSE.  Typical  DORT 
run  times  for  a  400  meter  by  800  meter  air-over-ground  calculation  with 
240  angles  and  69  energy  groups  is  approximately  3.5  hours  CPU  on  a 
Cray.  A  typical  adjoint  MORSE  analysis  of  a  vehicle  with  approximately 
300  bodies  and  300  regions  requires  approximately  2  hours  of  Cray  time 
to  obtain  adequate  statistics  on  the  integral  results. 

7.  RELATED  AND  AUXILIARY  PROGRAMS 

MASH  is  a  modular  code  system  made  up  of  a  collection  of  programs. 

These  codes  include: 


GIP  Cross-section  input  preparation 

GRTUNCL  Analytic  first  collision  source  code 

DORT  Two  dimensional  discrete  ordinates  transport  c.de 

VISTA  Vehicle  input  source  transformation  and  assembly 

code 

MORSE  A  general  purpose  Monte  Carlo  multigroup  neutron 

and  gamma-ray  transport  code  system 

GIFT  A  combinatorial  geometry  code  system 

DRC  A  detector  response  code 


8.  STATUS 

MASH  Version  1.0  available  on  Cray  CTSS  -  January  1992 

Successful  solution  of  several  test  problems  on  the  IBM  RISC  System/6000 
workstation  was  performed  by  ORNL  in  November-December  1991.  This 
version  will  be  released  at  a  future  date  once  testing  is  complete. 
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10.  COMPUTER  HARDWARE  REQUIRENENTS 

MASH  is  a  modular  code  system  made  up  of  several  codes,  each  with  their 
own  set  of  computer  hardware  requirements.  All  of  the  modules  are 
designed  to  be  applicable  to  most  full-scale  computers  that  support 
direct  (random)  access  disk  storage  or  the  equivalent.  Machine- 
dependent  features  such  as  calls  to  system-dependent  subroutines  are 
restricted  to  interchangeable  interface  packages.  The  code  originators 
maintain  a  configuration  for  the  Cray  computer  only. 

11.  COMPUTER  SOFTWARE  REQUIREMENTS 

MASH  is  a  modular  code  system  made  up  of  several  codes,  each  with  their 
own  set  of  computer  software  requirements.  The  code  system  can  be 
operated  with  100%  FORTRAN  language  on  Cray  computers.  All  of  the 
modules  are  designed  to  use  the  Cray  CFT  1.14  and  CFT77  Version  3.0 
compilers  currently  in  use,  but  any  FORTRAN  77  compiler  should  suffice. 
External  data  storage  must  be  provided  for  up  to  9  scratch  files,  of 
which  5  must  be  direct  (random)  access.  User-supplied  input  and  output 
data  files  must  be  supplied  on  sequential -access  devices,  i.e.,  tapes  or 
the  equivalent.  Library  calls  are  used  for  job  timing,  etc.,  but  they 
can  be  deleted. 

12.  OPERATING  SYSTEM 

MASH  currently  only  operates  under  the  Cray  CTSS  operating  system  using 
the  standard  CFTLIB  and  FORTLIB  libraries.  Since  the  code  system  is  all 
fortran,  operation  under  the  UNICOS  operating  system  should  be  possible 
with  little  conversion  effort. 
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Science  Applications  International  Corporation 


Note:  There  are  numerous  other  contributors  to  the  various 
codes  which  make  up  the  MASH  code  system.  They  are 
recognized  in  the  literature  associated  with  each 
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APPENDIX  E 
USER  NOTES 


USER  NOTES 


INTRODUCTION 


In  order  to  assess  the  quality  of  the  computational  shielding  efforts  at 
ORNL,  it  Is  first  necessary  to  explore  the  philosophies  used  by  ORNL  to 
solve  problems  of  the  class  under  consideration.  The  solution  of  the 
air-over-ground  problem  using  the  discrete  ordinates  method  requires 
expert  and  experienced  code  users.  The  same  can  be  said  for  the 
solution  of  the  adjoint  Monte  Carlo  formulation  for  the  dose  components 
leaving  a  complicated  shield  geometry. 

In  this  appendix,  a  series  of  questions  and  answers  are  given  in  regards 
to  the  application  of  the  MASH  code  system  to  a  particular  problem.  For 
illustrative  purposes  only,  the  problem  alluded  to  in  the  discussion  is 
the  sample  problem  included  in  this  manual.  When  references  to  the 
attached  input  listings  are  noted  in  the  discussion,  the  reader  should 
consult  that  section  of  this  manual  to  see  the  example. 

The  questions  come  from  a  novice  user  of  the  MASH  code  system  with  a 
background  in  Nuclear  Engineering  and  a  basic  understanding  of  the 
physics  and  underlying  principles  of  the  methodology.  The  responses  to 
the  questions  are  those  of  the  editor  of  this  manual  only.  They  are  not 
meant  to  represent  the  philosophy  of  ORNL  as  a  whole.  They  are  simply 
based  on  his  experience  in  using  the  MASH  code  system. 

The  purpose  of  the  following  questions  is  to  qualify  the  "rules  of 
thumb"  being  followed  at  ORNL,  and  to  try  to  stimulate  critical  thought 
along  the  lines  of  discovering  flaws  or  weaknesses  in  any  part  of  the 
methodology  being  followed. 


QUESTIONS  AND  ANSWERS  ON  AIR-OVER-GROUND  ENVIRONMENT  CALCULATIONS  WITH 
GRTUNCL/DORT 


1.  Q:  What  library  of  cross  sections  is  currently  being  used?  What 
weighting  function  was  chosen  for  preparing  this  library?  Why  was  it 
chosen?  Do  you  have  any  comri-ents  or  concerns  about  the  quality  of  the 
library?  Do  you  suspect  any  particular  data  to  be  weak? 

A:  The  library  currently  being  utilized  in  the  MASH  analysis  is 
the  reference  DNA  DABL69  69  group  (46n/237)  cross-section  library.  This 
library  has  three  weighting  functions,  only  one  of  which  was  used  for 
all  materials.  The  standard  weighting  function  is  a  smoothly  varying 
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function  consisting  of  a  300  K  Maxwellian,  a  1.4  MeV  fission  spectrum, 
and  a  14.07  MeV  fusion  peak  spectrum  overlaid  on  a  1/E  s1owing-down 
spectrum.  This  is  the  weighting  function  I  use  for  all  my  analysis.  A 
fission  source  through  infinite  air  spectrum  was  used  to  collapse 
additional  sets  of  hydrogen,  oxygen,  and  nitrogen  data,  and  inverse  of 
energy  times  the  total  cross  section  of  type-304  stainless  steel 
spectrum,  1/(ESt)>  was  used  to  collapse  the  major  constituents  of  steel 
for  use  in  deep  penetration  problems  involving  ferrous  materials.  Since 
the  cross  sections  collapsed  using  the  infinite  air  spectrum  were 
extracted  at  a  distance  of  2000  meters,  I  did  not  use  them  for  the  APRF 
experiments  being  performed  at  170  and  400  meters.  Should  I  end  up 
doing  calculations  at  distances  approaching  2000  meters,  I  would  use 
these  cross  sections  to  mix  my  air  material.  Likewise,  for  most  of  the 
armored  vehicle  analysis  (to  date),  the  armor  has  not  been  sufficiently 
thick  enough  to  consider  the  problem  a  "deep  penetration"  problem. 
Therefore,  I  use  the  standard  weighted  materials  for  my  steel 
components.  Additional  information  on  the  details  of  the  library  can  be 
obtained  from: 


D.  T.  Ingersoll,  R.  W.  Roussin,  C.  Y.  Fu,  and  J.  E.  White,  "DABL69: 
A  Broad-Group  Neutron/Photon  Cross-Section  Library  for  Defense 
Nuclear  Applications,"  ORNL/TM- 10568,  Oak  Ridge  National 
Laboratory,  (June  1989). 


2.  Q:  What  is  your  philosophy  for  choosing  radial  mesh  spaces  from 
the  source?  How  far  beyond  the  target  vehicle  do  you  think  the 
calculation  should  go?  Have  you  checked  this  out?  Do  you  increase  the 
mesh  detail  in  the  vicinity  of  the  target?  If  so,  how?  If  not,  why 
not?  What  is  your  philosophy  for  choosing  axial  mesh  spaces  from  lower 
ground  body?  How  high  do  you  think  the  calculation  should  go?  Have  you 
checked  this  out?  Do  you  have  a  mesh  size  transition  between  the  ground 
and  the  air?  Do  you  increase  the  mesh  detail  in  the  vicinity  of  the 
target?  If  so,  how?  If  not,  why  not?  Please  list  example  data. 

A:  My  current  philosophy  for  choosing  radial  and  axial  mesh 
utilizes  a  conservative  variant  of  the  "square-root  of  two"  rule.  In 
discrete  ordinates  as  you  know,  you  should  not  let  your  fluence  change 
by  more  than  a  factor  of  two  between  mesh  cells.  Since  in  air 
transport,  the  dominant  component  of  fluence  attenuation  is  geometric 
attenuation  (1/R^),  you  can  set  your  mesh  by  choosing  an  initial  cell 
size  for  the  source,  and  multiplying  this  cell  by  the  square  root  of  two 
(i.e.,  1.414)  to  obtain  the  boundary  for  the  next  cell.  I  use  a 
slightly  conservative  approach  and  use  1.3  as  my  factor.  I  allow  the 
mesh  cell  size  to  increase  until  it  reaches  a  maximum  size  of  20  to  30 
meters.  For  radial  mesh,  this  procedure  only  has  to  be  performed  once 
(for  a  centrally  located  point  source).  For  axial  mesh,  this  procedure 
has  to  be  performed  twice  (above  and  below  the  source  location)  for  a 
point  source.  Furthermore,  tighter  mesh  are  used  at  the  air/ground 
interface.  I  gradually  increase  the  ground  axial  mesh  spacing  from  a 
starting  value  of  0.5  cm  until  I  reach  a  maximum  size  of  approximately  5 
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cm.  I  usually  extend  approximately  twice  the  distance  from  the  source 
to  the  target  (i.e.,  400  meters  beyond  the  400  meter  test  site  for  a 
total  distance  from  source  of  800  meters),  with  a  minimum  distance 
beyond  the  target  of  approximately  300  meters.  This  distance  is  beyond 
the  longest  mean  free  path  in  air  and  more  than  sufficient.  Axially,  I 
usually  make  the  dimension  equal  to  the  radial  dimension.  Consequently, 
for  an  800  meter  radial  distance,  I  have  an  800  meter  axial  distance. 
This  will  incorporate  all  the  skyshine  contribution  to  the  dose  at  the 
400  meter  test  site.  I  have  run  cases  with  only  a  400  meter  height 
since  the  APRF  source  is  at  approximately  16  meters.  The  difference 
between  using  400  and  800  meter  source  heights  was  less  than  2%  due  to 
the  contribution  from  low  energy  gammas  not  accounted  for  in  the  smaller 
axial  case.  Likewise,  additional  cases  using  more  mesh  beyond  the 
target  showed  insignificant  changes  relative  to  the  currently  used  400 
meter  case.  Near  the  target/experiment  positions,  I  usually  gradually 
decrease  the  radial  mesh  cell  until  the  cell  containing  the  target  is 
only  approximately  10  meters  wide  in  the  radial  direction.  The  fluence 
does  not  change  that  significantly  over  the  10  meter  interval  (at  400 
meters)  and  consequently  the  single  mesh  point  folding  algorithm  in  DRC 
will  not  cause  a  significant  perturbation.  In  the  axial  direction,  I 
usually  place  the  first  few  air  intervals  above  the  ground  at 
approximately  1  meter  intervals  until  I  reach  a  few  meters  above  the  top 
of  the  vehicle  or  intersect  the  1.3  rule  coming  from  the  source.  If  the 
1.3  rule  does  not  become  a  factor,  I  will  gradually  increase  the  axial 
mesh  until  it  blends  in  smoothly  with  that  mesh  generated  with  the  1.3 
rule.  A  sample  6RTUNCL  and  DORT  listing  is  attached  for  the  analysis  of 
the  Two-meter  box  at  APRF. 


3.  Q:  Which  fluence  solution  option  do  you  use,  diamond-difference 
with  negative  fluence  fix-up,  or  others?  Why?  Do  you  check  the 
solution  against  any  of  the  other  options? 

A:  I  use  the  0-weighted  fluence  solution  in  DORT.  According  to  W. 
A.  Rhoades,  this  solution  has  shown  the  least  sensitivity  to  irregular 
mesh  problems  and  the  most  stability,  it  does  not  guarantee  the  fluence 
solution  regardless  of  mesh,  but  appears  to  allow  a  little  more  freedom. 
This  has  been  the  only  fluence  solution  option  I  have  used.  J.  V.  Pace, 
III  has  used  zero-weighted  in  the  past,  but  I  do  not  know  if  he  did  any 
comparison  studies. 


4.  Q:  What  angular  quadrature  set  do  you  use?  Who  prepared  it?  What 
philosophy  was  used  in  preparing  it? 

A:  The  current  angular  quadrature  set  being  used  is  a  240  angle 
set,  derived  from  a  symmetric  Sg  quadrature  set,  by  subdividing  each 
angle  into  five  angles  in  each  of  the  polar  directions.  This  still 
yields  a  symmetric  quadrature  set,  except  now  there  are  more  polar 
angles  to  reduce  quadrature  streaming  effects  (ray  effects)  in  the 
secondary  gamma  ray  component.  I  believe  the  originator  of  this 
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quadrature  set  is  J.  V.  Pace  and  it  came  out  of  his  extensive  air-over¬ 
ground  work  on  the  Hiroshima-Nagasaki  dose  re-assessment  program. 


5.  Q:  What  is  your  philosophy  concerning  the  allowable  aspect  ratios 
of  the  mesh  spaces  in  the  radial  to  axial  directions?  Do  you  have  any 
concerns  about  the  accuracy  of  the  diamond-difference  average  when  the 
aspect  ratio  is  large?  If  the  mesh  is  variable;  do  you  have  any 
concerns  about  cumulative  truncation  errors?  Have  you  ever  checked  this 
problem  out?  Please  list  some  of  the  aspect  ratios  used  in  the  vicinity 
of  the  target. 

A:  I  have  not  really  developed  a  philosophy  concerning  the  aspect 
ratios  of  the  mesh  spaces  in  the  axial  and  radial  directions.  Based  on 
the  rules  discussed  in  regards  to  questions  2  and  3,  and  the  use  of  the 
©-weighted  fluence  option,  I  look  for  fluence  profiles  which  appear 
reasonable  for  the  problem  and  do  not  violate  the  principals  governing 
discrete  ordinates  calculations.  I  realize  the  large  radial  mesh  in  the 
ground  will  cause  the  fluence  profile  to  not  conform,  however,  this 
aspect  of  the  problem  remains  to  be  insignificant  relative  to  the 
fluence  profile  in  the  air.  I  have  relied  extensively  on  the  experience 
and  expertise  of  J.  V.  Pace,  III,  and  W.  A.  Rhoades  since  they  have  been 
performing  air-over-ground  analysis  for  many  years  and  have  probably 
discovered  and  encountered  most  of  the  pitfalls  associated  with  this 
particular  type  of  analysis  through  executing  many  of  the  perturbations 
you  are  enquiring  about  now.  Unfortunately,  much  of  this  expertise  is 
inside  their  head  and  has  not  been  documented.  I  believe  my  worst 
aspect  ratio  in  the  air  in  the  vicinity  of  the  target  is  ten  (radial 
interval  of  10  meters  by  an  axial  interval  of  1  meter). 


6.  Q:  For  purposes  of  coupling  to  MORSE,  the  sidewise  and  backwards 
directions  are  important  to  the  determination  of  the  indirect  dose  to 
the  target.  For  the  forward-biased  quadrature  set  being  used,  is  there 
sufficient  detail  in  these  other  directions  to  adequately  determine  this 
dose  component?  Has  this  been  checked? 

A:  The  current  quadrature  set  is  symmetric  and  therefore  yields 
the  same  treatment  of  the  sideways  and  backward  directions  as  it  does 
the  forward  directions.  I  believe  there  is  sufficient  detail  to  model 
these  directions  with  the  quadrature  set  currently  being  used.  In  an 
unrelated  study,  I  performed  a  20  group  simulated  box  problem  using  a 
symmetric  S,,  S4,  Sj,  and  S,o  quadrature  set.  The  results  showed 
stability  of  the  neutron  dose  for  all  quadrature  sets  above  (and 
including)  S^.  I  did  not  investigate  the  stability  of  the  gamma  ray 
dose. 


7.  Q:  At  present,  the  DORT  fluence  at  a  single  radial  position  is 
being  used  for  the  entire  coupling  surface,  even  though  the  coupling 
cylinder  may  be  up  to  20  meters  in  diameter.  Are  you  satisfied  with  the 
accuracy  of  this  procedure?  Do  you  expect  any  significant  differences 
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to  appear  if  the  fluence  is  interpolated  at  its  correct  radial  distance 
to  the  coupling  surface?  What  about  the  current  entering  the  top  of  the 
coupling  surface? 

A:  As  presently  configured,  DRC  assumes  the  DORT  fluence  on  the 
"coupling  surface"  is  dependent  on  energy  and  elevation  only,  and  not  on 
azimuth.  Consequently,  DRC  only  uses  the  fluence  at  a  single  radius  in 
the  DORT  mesh  and  does  not  use  the  radii  encompassing  the  target.  This 
assumption  is  valid  for  small  objects  at  a  great  distance  from  the 
source.  Since  the  size  of  most  of  the  targets  is  small  relative  to  the 
distance  from  the  source,  it  is  felt  this  assumption  is  valid  for  this 
analysis  and  would  produce  an  uncertainty  within  the  statistical 
deviations  of  the  calculated  results.  Utilizing  the  10  meter  radial 
mesh  at  the  target  location  and  a  small  air  box  surrounding  the  target 
produced  differences  less  than  2%  in  a  study  on  the  two-meter  box.  If 
the  target  becomes  significantly  larger  (e.g.  a  house  cluster),  you  will 
have  violated  the  "small  target  relative  to  the  source  distance 
assumption",  and  the  single  radial  fluence  will  yield  larger 
discrepancies.  Modifying  DRC  to  use  multiple  radial  mesh  coupling  would 
be  the  only  true  way  to  assess  the  effect  of  the  single  radial  mesh 
coupling  approximation. 


8.  Q:  Do  you  have  ■'r  opinion  as  to  the  value  of  doing  a  several -day 
CRAY  calculation,  wu  much  more  spatial  detail,  to  provide  a  benchmark 
for  the  normal  D'“t<"  runs? 

A:  The  Jest  way  to  answer  many  of  these  questions  (and  probably 
introduce  few  more)  would  be  to  set  up  and  execute  a  large  air-over¬ 
ground  p''oblem  with  a  consistent  axial  and  radial  mesh  and  with 
reasonable  aspect  ratios  approaching  one.  Include  sufficient  mesh  above 
and  beyond  the  source  and  target  to  insure  all  skyshine  and  backward 
directed  fluence  is  accounted  for,  and  possibly,  increase  the  angular 
quadrature  to  test  the  current  quadrature  set.  Re-assess  a  problem  for 
which  the  current  air-over-ground  has  been  performed  and  compare  the  two 
calculations.  Such  a  calculation  could  (and  probably  would)  prove 
useful  towards  lending  credibility  to  the  current  problem  setup  being 
used. 


9.  Q:  Do  you  have  any  concerns  about  the  effects  of  non-uniform, 
partially  wet  and  bumpy  terrain?  If  so,  do  you  have  any  suggestions  of 
how  to  simulate  this  effect?  Comment  similarly  with  respect  to  trees 
and  vegetation. 

A:  Preliminary  scoping  calculations  investigated  the  effects  of 
the  APRF  topography  out  to  the  400  meter  test  site,  and  the  effects  of 
ground  moisture  and  meteorological  data  (temperature,  pressure,  and 
relative  humidity)  on  the  air  environment  during  measurements  made  at 
APRF.  Integral  and  spectral  MASH  results  showed  differences  less  than 
2%  for  the  topography  model  analysis.  Consequently,  a  simple  topography 
model  of  the  APRF  source-to-400  meter  test  site  was  determined  to  be 
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sufficient  for  the  analysis.  Partial  wet  conditions  could  not  easily  be 
simulated  in  the  2-D  model.  The  mud  puddles  in  close  proximity  to  the 
target  cause  me  a  little  concern  (e.g.  the  free-field  phantom  was 
standing  right  behind  and  within  5  meters  of  a  huge  puddle  of  water). 

The  only  way  of  modeling  the  terrain,  the  trees  and  vegetation,  and  to 
some  extent  the  puddles  of  water  would  be  to  go  to  a  3-D  air-over-ground 
calculation.  This  could  be  performed  with  either  TORT,  MORSE,  or 
possibly  MCNP.  Such  an  analysis  would  require  a  fairly  accurate  mapping 
of  the  environmental  conditions  at  the  time  a  particular  measurement  was 
made.  Furthermore,  standardization  of  such  a  model  would  be  extremely 
difficult  in  view  of  changes  in  between  experiments,  especially  the  mud 
puddles.  A  better  solution  would  be  to  backfill  the  low  area  where 
standing  water  is  a  problem,  and  look  to  standardize  the  rest  of  the 
problem. 


QUESTIONS  AND  ANSWERS  ON  ADJOINT  HONTE  CARLO  CALCULATIONS  WITH  NORSE 


1.  Q:  Where  did  the  geometry  model  come  from  that  is  currently  being 
used?  How  many  bodies,  etc.?  Has  the  model  been  checked  for  missing 
regions,  holes,  etc.?  Were  any  found?  What  geometry  package  was  used 
to  process  the  model? 

A:  The  two-meter  box  geometry  was  modeled  in  the  MORSE  component 
of  the  MASH  code  system  using  the  GIFT  geometry  package.  J.  M.  Barnes 
modeled  the  box  by  using  the  engineering  blue  prints  supplied  by  APRF. 
The  box  required  49  bodies,  and  twenty  four  regions  to  model  it 
precisely  as  the  drawings  specified.  A  simpler  representation  could 
have  been  modeled  with  less  bodies  and  retained  the  same  amount  of 
detail.  The  geometry  was  checked  by  the  GIFT  debugging  tool,  converted 
to  MORSECG  input  and  checked  with  JUNEBUG,  and  analyzed  with  the  new 
geometry  package  being  created  by  T.  J.  Burns.  Results  of  a  preliminary 
study  determined  all  the  details  of  the  box  (i.e.,  lift  tabs,  drain 
holes,  etc.)  made  insignificant  contributions  to  the  calculation  and 
therefore  were  omitted  in  the  final  computational  geometry  model.  The 
hatches  were  retained  in  the  computational  model  for  potential  open 
hatch  experiments  performed  in  the  future.  The  walls  and  roof  of  the 
box  were  comprised  of  two  plates  of  steel  each  5.08-cm  thick.  This 
detail  was  retained  in  the  geometry  model  for  region  dependent  biasing 
in  the  Monte  Carlo  analysis. 


2.  Q:  What  is  your  philosophy  for  choosing  the  number  of  starters? 

How  many  were  actually  used?  What  was  the  number  of  secondaries  created 
and  followed?  Have  you  checked  any  cases  of  a  similar  nature  with 
considerably  more  starters? 

A:  The  Monte  Carlo  (MORSE)  calculation  for  the  detector  position 
generated  and  tracked  1,500,000  primary  source  particles  (1500  batches 
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of  1000  particles)  sampled  over  the  69  energy  groups.  All  starters  were 
used,  approximately  one  secondary  particle  was  generated  for  each 
starter,  and  approximately  one  particle  escaped  (to  be  scored  in  DRC) 
for  each  starter.  I  do  not  believe  any  other  cases  were  run  with  more 
starters  than  what  I  chose  to  run.  My  philosophy  for  choosing  the 
number  of  starters  depends  to  some  extent  on  whether  I  am  analyzing 
integral  or  spectral  experimental  data.  For  integral  data,  you  can 
obtain  a  reasonable  degree  of  convergence  with  much  less  histories  than 
that  required  for  spectral  comparisons.  In  integral  comparisons  not  all 
of  the  energy  groups  need  to  be  converged;  only  those  making  a 
significant  contribution  to  the  total.  For  spectral  comparisons,  the 
majority  of  the  energy  groups  should  be  converged  (typically  less  than 
5%)  for  confidence  in  the  calculated  spectrum.  I  have  found  that  you 
can  obtain  statistics  on  your  integral  result  less  than  5%,  and  have 
statistics  on  your  differential  results  (group  fluences)  greater  than 
10%.  Care  must  be  taken  in  this  situation  because  you  may  analyze  the 
same  calculation,  with  the  same  number  of  starting  particles,  using  a 
different  starting  random  number,  and  obtain  an  entirely  different 
integral  result  with  a  statistical  uncertainty  less  than  5%.  In  this 
case,  even  though  your  integral  result  is  converged  to  within  5%,  there 
is  still  too  much  deviation  in  the  contributions  from  the  individual 
groups.  Consequently,  your  integral  result  is  undersampled  even  though 
the  fractional  standard  deviation  (fsd)  says  it  is  converged.  One  final 
point  should  be  made  about  the  fsd's  printed  in  the  MORSE  output.  You 
can  converge  your  MORSE  calculation  to  within  1%  for  both  your  integral 
and  differential  data  and  still  not  obtain  the  correct  answer.  The 
final  result  regardless  of  the  level  of  convergence  is  only  as  good  as 
the  accuracy  of  the  MASH  model . 


3.  Q:  What  philosophy  do  you  use  for  source  biasing?  Why  did  you 
choose  this?  Please  list  example  data.  What  exact  geometry  was  used 
for  the  source  and  where  was  it  positioned? 

A:  I  did  not  use  source  biasing  in  this  calculation  except  for 
energy  biasing  discussed  in  question  5  below. 


4.  Q:  What  source  spectrum  did  you  use?  Why  did  you  choose  it? 

A;  The  source  spectrum  was  an  angle  (240  angles)  and  energy 
dependent  (69  groups,  46n  and  237)  source  spectrum  supplied  by  SAIC  as  a 
result  of  their  recent  analysis  of  the  APRF  reactor  leakage.  The  input 
is  supplied  in  the  attached  GRTUNCL  input  listing.  Details  about  the 
source  calculation  can  be  obtained  from: 


D.  C.  Kaul  and  S.  D.  Egbert,  "Radiation  Leakage  From  The  Army 
Pulse  Radiation  Facility  (APRF)  Fast  Reactor,"  SAIC-89/1423, 
Science  Applications  International  Corporation,  San  Diego, 
California,  (May  1989). 
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5.  Q:  Do  you  use  energy  biasing?  If  so,  describe  the  philosophy  used 
to  determine  which  groups  should  be  biased  and  by  how  much.  Please  list 
example  data. 

A:  An  energy  dependent  relative  importance  factor  is  utilized  over 
the  69  groups  to  increase  the  frequency  of  sampling  the  adjoint  source 
particle  from  energy  groups  which  have  a  significant  effect  on  the  dose 
response  function.  In  this  case,  the  response  function  is  the  free-in- 
air  tissue  dose  response  function.  An  example  is  given  in  the  attached 
MORSE  input  stream.  Obtaining  a  good  source  biasing  function  can  be 
aided  through  the  use  of  1-0  ANISN  calculations  which  approximate  the  3- 
D  calculations  as  much  as  possible.  The  geometry  for  the  source  in  the 
adjoint  MORSE  calculation  is  just  a  detector  location  (a  point  detector) 
located  in  the  combinatorial  geometry  target  description.  The  source  in 
the  DORT  air-over-ground  analysis  was  modeled  as  a  small  cylinder  (5  cm 
in  height  x  5  cm  in  radius)  positioned  at  R=0.0,  and  Z=16.143  meters. 


6.  Q:  Do  you  use  region  biasing?  If  so,  what  philosophy  do  you  use 
in  picking  the  regions  and  region  thicknesses?  How  do  you  set  the  bias 
factors  and  splitting  ratios?  Why?  What  weight  cutoffs  do  you  use  for 
Russian  Roulette?  Why?  What  kill  fractions  do  you  use,  and  why? 

Please  give  examples. 

A:  The  secondary  particle  production  probability  (GWLO)  was  set  to 
1.0  for  all  regions  and  energy  groups  in  the  Monte  Carlo  calculations, 
and  the  in-group  energy  biasing  option  in  MORSE  was  switched  on.  Region 
dependent  and  energy  independent  splitting  and  Russian  Roulette 
parameters  were  utilized  in  the  steel  to  improve  the  efficiency  of  the 
Monte  Carlo  calculations.  This  was  accomplished  by  subdividing  the 
10. 16-cm-thickness  of  steel  into  two  equally  thick  concentric  regions 
and  assigning  each  of  the  steel  regions  different  splitting  and  Russian 
Roulette  parameters  which  would  allow  a  sufficient  number  of  source 
particles  (and  secondary  particles)  to  escape  to  obtain  reasonable 
statistics.  This  allowed  nominally  one  escaping  particle  for  each 
source  particle  generated.  The  process  is  pretty  much  a  trial  and  error 
approach.  The  region  thicknesses  to  some  extent  were  (and  will  be)  set 
by  the  geometry  data.  You  do  not  want  to  add  additional  regions  to  the 
geometry  (unless  the  geometry  is  relatively  simple)  for  the  sole  purpose 
of  performing  region  dependent  biasing.  For  complicated  geometries, 
this  task  is  impossible.  You  have  to  choose  an  initial  kill -to-survival 
ratio  (i.e.  10  to  1,  5  to  1,  etc.)  and  then  utilize  the  geometry  data, 
source  data,  and  energy  biasing  data  to  generate  a  biasing  scheme.  In 
MASH,  the  object  is  to  obtain  escaping  particles  in  the  energy  groups 
which  will  make  a  significant  contribution  to  the  dose.  Therefore,  you 
want  to  set  up  your  biasing  scheme  to  maximize  your  leakages.  This  will 
require  you  to  constantly  change  your  biasing  parameters  to  insure  you 
get  approximately  the  same  number  of  leakages  as  you  had  starters.  You 
must  be  careful  not  to  over-bias  the  problem  and  create  a  totally  unreal 
distribution.  You  also  must  be  careful  that  you  do  not  end  up  with 
approximately  the  same  number  of  leaking  particles  as  source  particles, 
but  all  in  a  very  few  groups.  The  only  way  to  set  up  a  biasing  scheme 
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for  a  coupled  neutron  and  gamma  ray  adjoint  calculation  with  source 
energy  biasing  and  region  dependent  biasing  is  through  trial  and  error 
because  almost  everything  you  do  affects  everything  else.  Furthermore, 
each  calculation  is  sufficiently  different  enough  to  render  you  a  novice 
each  time  you  set  up  a  biasing  scheme. 


7.  Q:  What  criteria  do  you  use  to  judge  the  quality  of  the  resulting 
calculations?  What  FSD's  do  you  look  at?  What  values  are  deemed 
acceptable  or  unacceptable,  and  why?  What  do  you  do  if  you  don't  like 
the  results? 

A:  I  look  at  several  aspects  of  the  output  to  determine  my 
confidence  in  a  particular  calculation.  I  will  look  at  the  balance 
tables  printed  at  the  end  of  each  batch  to  see  if  they  are  all 
approximately  the  same.  If  they  are,  the  calculation  is  fairly  well 
behaved  and  you  are  not  experiencing  gross  anomalies  in  the  calculation 
to  cause  large  swings  in  your  batch  results.  I  look  at  the  balance 
tables  (printed  by  group)  to  determine  how  the  biasing  (if  used)  is 
working,  how  the  secondary  particle  production  distribution  is  looking, 
and  how  the  collisions  are  occurring  within  the  different  regions  in  the 
geometry  (if  there  are  different  importance  regions  (relative  to  the 
biasing)  specified.  After  the  adjoint  leakage  tape  has  been  folded  with 
the  forward  fluence  on  the  coupling  surface,  I  look  at  the  integral 
detector  fsd's  to  determine  whether  the  problem  is  converged.  If  the 
problem  is  symmetric,  you  can  look  at  the  effect  of  rotating  the 
geometry  through  0,  90,  180,  and  270  degrees  and  look  at  the  consistency 
among  the  four  different  answers  you  will  receive.  I  then  look  at  the 
individual  group  fsd's  to  see  how  well  the  group  fluences  are  converged. 
If  I  have  any  misgivings,  I  may  rerun  the  calculation  and  double  the 
number  of  starters  to  see  if  the  results  change.  If  they  do  not,  then 
the  original  calculation  probably  had  an  adequate  number  of  starters. 

If  there  are  significant  differences  between  the  two  calculations,  I 
begin  comparing  the  two  calculations  to  find  out  whether  it  was  a  case 
of  undersampling,  or  if  some  other  problems  exist.  If  I  cannot  resolve 
the  problem  as  being  a  "Monte  Carlo"  problem,  I  will  tear  down  the 
entire  analysis  from  the  cross  section  generation  on  up  to  make  sure  I 
did  not  make  some  input  error  or  keypunch  error  which  did  not  manifest 
itself  in  the  form  of  an  error  message.  As  I  stated  earlier,  I  believe 
you  must  have  differential  (spectral)  fsd's  in  the  5%  to  10%  range  for 
all  the  groups  contributing  to  the  integral  response;  even  though  the 
integral  results  may  yield  5%  fsd's  with  20%  fsd's  on  the  differential 
results.  Once  the  fsd's  get  greater  than  15%,  I  start  to  have  my 
suspicions  about  the  quality  of  that  result.  Unless  cost  is  a  factor,  I 
will  run  the  number  of  histories  required  to  obtain  adequate  convergence 
of  the  differential  results  to  insure  adequate  convergence  of  the 
integral  results.  This  by  no  means  is  an  iron-clad  guarantee,  but  it 
helps  reduce  a  source  of  discrepancy. 


8.  Q:  Do  you  ha'  any  concerns  about  your  current  random  number 
generator? 
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A:  I  utilize  the  CRAY  random  number  generator  and  do  not  have  any 
problems  with  this  software. 


9.  Q:  What  is  your  philosophy  for  picking  the  size  of  the  coupling 
surface?  Have  you  compared  small  versus  large  surfaces?  Describe  what 
surface  dimensions  you  use. 

A:  My  current  philosophy  for  picking  the  coupling  surface  is  to 
make  it  a  "glove"  fit  of  the  outside  dimensions  of  your  target  geometry. 

This  is  primarily  due  to  the  single  radius  fluence  coupling  algorithm 

currently  in  use  in  DRC.  When  you  use  a  large  coupling  surface,  you 
will  take  into  account  the  transport  in  the  air  from  the  radius  at  which 
the  fluence  is  obtained  to  the  edge  of  the  coupling  surface  twice.  This 
could  yield  differences  greater  than  5%  if  the  coupling  surface  is 
large.  For  instance,  in  the  two-meter  box  calculations,  the  coupling 
surface  need  only  be  slightly  larger  than  the  box  itself  since  the 
transport  through  the  air  has  already  been  accounted  for  in  the  forward 

DORT  calculation.  In  my  initial  box  calculations,  I  had  a  large 

coupling  surface  (approximately  20  meters  on  a  side).  DRC  then  folded 
fluences  at  400  meters  with  escapes  at  distances  between  390  meters  and 
410  meters.  If  the  source  would  have  been  fairly  isotropic,  the  size  of 
the  coupling  surface  would  not  have  mattered.  But  for  the  APRF  forward 
directed  reactor  source  at  400  meters,  the  DRC  coupling  with  a  large 
coupling  surface  yielded  answers  lower  than  those  obtained  with  a  small 
coupling  surface.  The  current  coupling  surface  is  only  a  few 
centimeters  larger  than  the  outside  dimension  of  the  box. 


10.  Q:  Should  a  slightly  different  spectrum  be  used  inside  the 
vehicle?  (To  weight  the  library?)  (For  example,  tuna-can  tank  DORT  run 
to  collapse  cross-sections.) 

A:  Tailoring  the  cross-sections  to  fit  the  particular  problem  is 
always  a  good  idea  in  any  analysis  when  it  is  feasible  to  do  so. 

However,  for  target  vehicle  analysis  utilizing  adjoint  Monte  Carlo  and 
"-D  air-over-ground  environments  which  are  not  truly  indicative  of 
reality,  I  am  not  sure  the  net  effect  would  not  be  within  the 
statistical  uncertainty  if  not  the  uncertainty  of  the  parameters 
utilized  in  the  model.  Furthermore,  you  will  be  introducing  another 
complicated  step  into  a  process  that  is  already  complicated  for  users 
who  may  or  may  not  have  the  background  to  perform  the  task.  I  believe 
the  analysis  should  be  performed  for  the  experimental  comparisons 
exactly  the  way  it  will  be  performed  once  it  is  used  in  the  fields. 

Then  you  have  a  true  measure  of  its  capabilities  and  limitations 
relative  to  how  it  will  function  on  a  day-to-day  basis. 


In  summary,  I  must  say  that  the  only  way  to  learn  how  to  use  MASH  is  to 
have  a  basic  understanding  of  the  underlying  principals  of  the  theory 
and  then  apply  them  to  the  problem.  To  fine  tune  a  problem  requires,  to 
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some  extent,  a  trial  and  error  approach  using  small  test  problems.  You 
constantly  tweak  the  input  parameters  and  look  at  the  effect  on  the 
summary  counters.  Understanding  these  effects  takes  experience  and 
involves  a  constant  learning  process.  Unfortunately,  the  information 
gleaned  from  one  problem  may  not  be  applicable  or  helpful  for  another 
problem,  even  if  they  are  similar.  Eventually,  you  have  to  cut  your 
losses  and  proceed  with  your  setup  as  it  is  rather  than  continuously 
modifying  it  to  obtain  better  efficiency. 
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